我想绘制10个数字,使用相同的变量,但是不同的演员(我希望为每个演员制作一个情节)。
actor1 <- subset (actor, actor$Actor=="Actor1")
plot_actor1 <- ggplot(actor1, aes(x = Date, y = Var))+
geom_point(shape=15)
ylim(0,30)+
geom_hline(yintercept=12)+
geom_hline(yintercept=17)+
theme_bw()
pdf("actor1", paper='A4r', width=11)
actor1
dev.off()
数据(“演员” - 摘录):
Actor Date Var
Actor1 0101 12
Actor1 0102 14
Actor1 0103 17
Actor1 0104 11
Actor1 0105 9
Actor1 0106 21
Actor2 0101 6
Actor2 0102 17
Actor2 0103 15
Actor2 0104 19
Actor2 0105 25
Actor2 0106 3
我可以手动完成,但是没有其他解决方案(带循环或函数),我可以用所有演员的名字替换“actor1”(从actor1到actor10)?
答案 0 :(得分:1)
如果我理解正确,你应该好好添加
+ facet_grid(.~Actor)
到ggplot调用。