[英]ggplot2 or sjPlot sum stacked barplot columns
我正在MacBook Pro OS 10.14.2上运行R版本3.5.2(2018-12-20)-“ Eggshell Igloo”。
我尝试了几种方法来获得这些图。 我的首选方法是尝试创建数据的堆叠条形图(随时间分组的因子,我的x轴,计数为y),每列的二分变量计数为0.1,因为它们与y上的计数匹配轴。 但是我很灵活。 如果我可以在上面覆盖一个小节图,这将很有用。
ggplot(dat, aes(x=factor(yr),y=n, group=(n>0)))+
stat_summary(aes(color=(n>0)),fun.y=length, geom="line")+
scale_color_discrete("Key",labels=c("NN", "N"))+
labs(title= "1992-2018", x="Years",y="n")
使用我的完整数据集,我尝试了一下,并非常接近堆积的条形图,它为我提供了每个“ yr”变量的正确计数,但是对于我的变量“ n”,它给了我连续的0-1.0范围。
p<-ggplot(data=dat, aes(x=dat$yr, y=n, fill=n)) +
+ geom_bar(stat="identity")
这是我最感兴趣的数据。我试图将其强制为一个表,然后为一个数据框。
t2<- table(dat$yr, dat$n)
0 1
1992 6 0
1993 10 0
1994 3 1
1995 20 2
1996 15 2
1997 16 0
1998 16 0
1999 9 3
2000 5 0
2001 5 1
2002 7 1
2003 9 2
2004 4 3
2005 6 3
2006 5 3
2007 6 3
2008 4 3
2009 8 4
2010 7 1
2011 4 5
2012 4 5
2013 6 2
2014 0 2
2015 3 3
2016 5 5
2017 4 4
2018 8 5
t<-table(dat$yr)
1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004
6 10 4 22 17 16 16 12 5 6 8 11 7
2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017
9 8 9 7 12 8 9 9 8 2 6 10 8
2018
13
然后,我尝试:
df<- data.frame(t, t2)
head(df)
head(df)
Var1 Freq Var1.1. Var2 Freq.1
1 1992 6 1992 0 6
2 1993 10 1993 0 10
3 1994 4 1994 0 3
4 1995 22 1995 0 20
5 1996 17 1996 0 15
6 1997 16 1997 0 16
p<-ggplot(data=df, aes(x=Var1, y=Var2)) +
geom_bar(stat="identity")
p
将其替换为数据集变量会给我更糟糕的结果,y轴显示每年“ yr”变量没有计数,并且每一列一直填充到“ 1”范围的顶部。
同样,我想获得一个堆积的条形图,在每年的列中显示二进制“ n”,以显示0/1的总和,该总和应与y轴上的“ yr”计数匹配。 或者,我也可以使用在我发布的第一个代码中获得的ggplot并获取那里每年的总和,我也将这样做。
这真的非常接近。 如果它也能使总数达到最高,那就太完美了。
包sjPlot:
sjp.grpfrq(dat$yr, dat$n, bar.pos = c("stack"), show.values = TRUE, show.n = TRUE, show.prc = FALSE, title = NULL)
sjPlot代码的主要问题是我无法更改图例标签。 它显示n = 0,1。我需要将其更改为特定值。
非常感谢!
试试这个,看看那是你想要的吗?
ggplot(data=df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity")
解决。
sjp.grpfrq(dat $ yr,dat $ n,bar.pos = c(“ stack”),legend.title =“ Key”,legend.labels = c(“ NN”,“ N”),show.values = TRUE,show.n = TRUE,show.prc = FALSE,show.axis.values = TRUE,标题=“ 1992-2018”)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.