它们是否有任何改进由geom_line()将多个点连接到ggplot2中的平滑可呈现线而产生的锯齿状线的过程?
lai.se <- structure(list(DOS = structure(c(1L, 1L, 1L, 1L, 1L, 2L, 2L,
2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L), .Label = c("D1", "D2", "D3"), class = "factor"),
DAS = c(31L, 84L, 113L, 132L, 160L, 35L, 82L, 108L, 126L,
146L, 37L, 83L, 94L, 113L, 134L), N = c(24L, 24L, 24L, 24L,
24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L), LAI = c(1.5879167,
4.3241667, 3.70375, 2.9704167, 0.1879167, 1.7679167, 3.7670833,
3.4104167, 2.7879167, 0.195, 1.3179167, 3.5233333, 3.1604167,
2.45875, 0.2758333), sd = c(0.4276323, 0.32478644, 0.34151596,
0.3338638, 0.09868611, 0.18551876, 0.38212767, 0.31431747,
0.35024189, 0.08836682, 0.16378616, 0.29256982, 0.28257326,
0.44131535, 0.09536733), se = c(0.08729008, 0.06629675, 0.06971165,
0.06814966, 0.02014422, 0.03786886, 0.07800148, 0.06415978,
0.07149283, 0.0180378, 0.03343271, 0.05972057, 0.05768002,
0.09008312, 0.01946677), ci = c(0.18057328, 0.13714529, 0.14420954,
0.14097832, 0.04167149, 0.0783377, 0.16135836, 0.13272463,
0.14789418, 0.03731404, 0.06916083, 0.1235414, 0.11932022,
0.18635113, 0.04027009)), .Names = c("DOS", "DAS", "N", "LAI",
"sd", "se", "ci"), class = "data.frame", row.names = c(NA, -15L
))
ggplot(lai.se, aes(x=DAS, y=LAI, colour=DOS)) +
geom_errorbar(aes(ymin=LAI-se, ymax=LAI+se), colour ="black", size =.5, width=1, position=position_dodge(.9)) +
geom_line() +
geom_point()+ theme_bw()
使用这些代码创建的线是非常像素化的之字形线。他们有什么办法绘制更平滑的
"solid"
线(不是锯齿形的)吗? > sessionInfo()
R version 2.14.2 (2012-02-29)
Platform: i386-pc-mingw32/i386 (32-bit)
locale:
[1] LC_COLLATE=English_India.1252 LC_CTYPE=English_India.1252 LC_MONETARY=English_India.1252 LC_NUMERIC=C
[5] LC_TIME=English_India.1252
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] ggplot2_0.9.2.1
loaded via a namespace (and not attached):
[1] colorspace_1.1-1 dichromat_1.2-4 digest_0.5.2 grid_2.14.2 gtable_0.1.1 labeling_0.1
[7] MASS_7.3-17 memoise_0.1 munsell_0.4 plyr_1.7.1 proto_0.3-9.2 RColorBrewer_1.0-5
[13] reshape2_1.2.1 scales_0.2.2 stringr_0.6.1 tools_2.14.2
最佳答案
我猜您正在尝试平滑一条线。这是您所追求的目标吗?
ggplot(lai.se, aes(x=DAS, y=LAI, colour=DOS)) +
geom_errorbar(aes(ymin=LAI-se, ymax=LAI+se), colour ="black", size =.5, width=1, position=position_dodge(.9)) +
geom_smooth() +
geom_point()+ theme_bw()
关于r - 如何改善ggplot2中的锯齿状折线图?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/14323294/