使用R将带有箭头的单个箭头添加到ggplot2中的绘图
我有一台64位的电脑。使用Rstudio v0.98.953中的ggplot 2,当前R更新 我是ggplot新手,对R的熟练程度有限。我有以下代码:使用R将带有箭头的单个箭头添加到ggplot2中的绘图,r,plot,R,Plot,我有一台64位的电脑。使用Rstudio v0.98.953中的ggplot 2,当前R更新 我是ggplot新手,对R的熟练程度有限。我有以下代码: # Simple Bar Plot for Multivariate OR by NVP quartile dat <- data.frame( QUAR = factor(c("1","2","3","4"), levels=c("1","2","3","4")), aOR = c(1.00, 2.47, 3.33, 9.17),
# Simple Bar Plot for Multivariate OR by NVP quartile
dat <- data.frame(
QUAR = factor(c("1","2","3","4"), levels=c("1","2","3","4")),
aOR = c(1.00, 2.47, 3.33, 9.17),
lowerCI = c(1.00, 1.09, 1.33, 3.20),
upperCI = c(1.00, 5.60, 8.30, 26.0)
)
dat
library(ggplot2)
myplot = ggplot(data=dat, aes(x=QUAR, y=aOR, fill=QUAR)) +
geom_bar(colour="black", width=.8, stat="identity") +
scale_fill_manual(values=c("#e8e7e7", "#c3bfbf", "#908c8c", "#363434")) +
guides(fill=FALSE) +
xlab("XXX Quartile") + ylab("YYY") +
geom_text(data=dat, aes(x=QUAR, y=aOR, label=round(aOR, 1)), vjust=-0.5) +
coord_cartesian(ylim = c(0, 11)) +
ggtitle("Graph")
myplot
# this gets rid of the grid line and background color
plot (myplot)
myplot2 = myplot + geom_errorbar(aes(ymin=lowerCI, ymax=upperCI), width=.1) +
theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), panel.background = element_blank(), axis.line = element_line(colour = "black"))
myplot2
#多变量或NVP四分位数的简单条形图
dat有一个箭头
参数,在这里应该对您有所帮助。试着这样做:
library(grid) ## Needed for `arrow()`
myplot2 + geom_segment(aes(x=4, xend=4, y=10, yend=11),
arrow = arrow(length = unit(0.5, "cm")))
+1!我想在这里添加一个颜色geom_段(aes(x=4,xend=4,y=10,yend=11),arrow=arrow(长度=单位(0.5,“cm”)),col='red')
非常好,效果非常好。当我以前尝试过类似的代码时,我忘记了库(网格)函数。谢谢