ggplot2包，如何给网格分面图加不同注解

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我利用ggplot2包画了4行3列，一共12个图的分面图。
代码是：ggplot(data = AMXHhuzhe1,aes(x=FINT_SPEED))+geom_line(colour="cadetblue3",stat = "density")+facet_grid(FOGLEVEL~TYPE)
每个图形表示不同FOGLEVEL与TYPE水平下的速度概率密度分布。
我想在每个子图中加入相应水平下的样本数与平均值注解。我已经使用别的代码计算出各个水平下的样本数与平均值了。




具体取值如下所示：
"n=1",                         "n=1",                            "n=17,mean=81.08",    "n=11,mean=75.58"
"n=10,mean=81.60",     "n=28,mean=96.90",      "n=42,mean=75.58",     "n=30,mean=60.96"
"n=6439,mean=101.4", "n=19195,mean=94.22", "n=5918,mean=78.95", "n=3028,mean=64.81"

我读了《R可视化手册》，在136页中有相应的说明。但书中仅说明了一行多列的分面图加注解的方式，我尝试了很多次，仍无法为4行3列分面图添加以上注解。
附书中代码：
p <- ggplot(mpg, aes(x=displ, y=hwy)) + geom_point() + facet_grid(. ~ drv)
#构造注释数据框
f_labels <- data.frame(drv = c("4", "f", "r"), label = c("4wd", "Front", "Rear"))
p + geom_text(x=6, y=40, aes(label=label), data=f_labels)


发帖求点拨。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

1. library(ggplot2)
   
2. x <-runif( 120, 0, 100 )
   
3. data <- as.data.frame( x )
   
4. data$y <- runif( 120, 0, 100 )
   
5. data$yy <- letters[ 1:12 ]
   
6. 
   
7. ggplot( data, aes( x, y ) ) +
   
8.   geom_point( shape = 2 ) +
   
9.   facet_wrap( ~ yy, ncol = 3 ) +
   
10.   geom_text( aes( x, y, label = lab ),
    
11.             data = data.frame( x = c( 30,40,50,30,40,50,30,40,50,30,40,50 ),
    
12.                                y = c( 40,50,60,40,50,60,40,50,60,40,50,60 ),
    
13.                              lab = c( "n=1 \n mean=10",  "n=3,mean=20",   "n=5,mean=30",
    
14.                                       "n=7 \n mean=40",  "n=9,mean=50",  "n=11,mean=60",
    
15.                                      "n=13 \n mean=70", "n=15,mean=80",  "n=17,mean=90",
    
16.                                      "n=19 \n mean=40", "n=21,mean=60",  "n=23,mean=60" ),
    
17.                             yy = letters[ 1:12 ]),  vjust = 1 )

复制代码

stormhz 发表于 2018-5-28 10:36

非常棒！谢谢分享！