Question

我的数据集看起来像这样：

x

date server cpu
1/1/2012 A  80
1/1/2012 B  20
1/1/2012 C  10
1/2/2012 A  80
1/2/2012 B  20
1/2/2012 C  10
1/3/2012 A  80
1/3/2012 B  20
1/3/2012 C  10
1/4/2012 A  80
1/4/2012 B  20
1/4/2012 C  10
1/5/2012 A  80
1/5/2012 B  20
1/5/2012 C  10
1/6/2012 A  80
1/6/2012 B  20
1/6/2012 C  10

我喜欢使用ggplot facet_wrap为每个服务器创建一个单独的图表（除非有更好的方法来执行此操作？）

我的代码是：

ggplot(x, aes(date, cpu, group=server, colour=server)) 
+ geom_point() 
+ facet_wrap(~server) 
+ ylim(0,100) 
+ theme_bw() 
+ geom_smooth(method="lm", se=TRUE, size=1) 
+ xlab("Date") 
+ ylab("CPU") 
+  opts(title="% CPU"),plot.title=theme_text(size=14, colour="navyblue"),axis.title.x = theme_text(face="bold", size=12, colour="#990000"), axis.text.x  = theme_text(angle=90, size=9, face="bold"),axis.title.y = theme_text(face="bold", size=12, colour="#990000", angle=90), axis.text.y=theme_text(size=9, face="bold", hjust=1)) + opts(legend.position = "none") 
+ opts(strip.text.x = theme_text(size=10, face="bold", colour="navyblue"), strip.background = theme_rect(colour="blue", fill="#98CAFF"))

这种方法有用，但我有两个问题：

如果主机数量未均匀对齐，有时意味着，由于主机数量可能是奇数，最后一行可能比前一行具有更少的网格。因此，最后一行网格图具有日期，但最后一行之前的行没有日期。如何确保最后一行之前的行有日期？
由于我将编写脚本，因此某些数据框可能包含更多服务器。根据服务器的数量，我需要调整png大小。例如，如果服务器的数量是20，我需要图像的高度为500，宽度为200.有没有办法在ggplot2中执行此操作？你可能有这个想法。除了ggplot2之外，还有其他方法吗？

Answer 1

关于问题2，您可以使用ggsave保存最后生成的绘图，一些伪代码将绘图宽度基于服务器数量：

ggplot(...) + 
   etc()
if(noServers > 20) plot_width = 500
ggsave("name.png", width = plot_width)

ggplot facet_wrap图

1 个答案: