我在ggplot中有一条水平线,我想在y轴上标注它的值(7.1).
library(ggplot2)
df <- data.frame(y=c(1:10),x=c(1:10))
h <- 7.1
plot1 <- ggplot(df, aes(x=x,y=y)) + geom_point()
plot2 <- plot1+ geom_hline(aes(yintercept=h))
Run Code Online (Sandbox Code Playgroud)
谢谢您的帮助.
我使用ggplot做了一个带有绘图的RShiny应用程序.
现在,我想在现有情节中添加平均线.
library(ggplot2)
A <- c(1:10)
B <- c(1,1,2,2,3,3,4,4,5,5)
donnees <- data.frame(A,B)
datetime<-donnees[,2]
Indcatotvalue<-donnees[,1]
df<-donnees
mn<-tapply(donnees[,1],donnees[,2],mean)
moyenne <- data.frame(template=names(mn),mean=mn)
ggplot(data=df,
aes_q(x=datetime,
y=Indcatotvalue)) + geom_line()
Run Code Online (Sandbox Code Playgroud)
我试图添加:
geom_line(aes(y = moyenne[,2], colour = "blue"))
Run Code Online (Sandbox Code Playgroud)
要么 :
lines(moyenne[,1],moyenne[,2],col="blue")
Run Code Online (Sandbox Code Playgroud)
但没有任何反应:(我不明白特别是功能"线".
谢谢您的回答...
现有问题询问有关在以下位置标记单个geom_abline()内容的问题ggplot2:
这些都没有达到我想要向散点图添加多条参考线的用例,目的是允许对斜率范围内的点进行轻松分类。这是该图的可重现示例:
library(ggplot2)
set.seed(123)
df <- data.frame(
x = runif(100, 0, 1),
y = runif(100, 0, 1))
lines <- data.frame(
intercept = rep(0, 5),
slope = c(0.1, 0.25, 0.5, 1, 2))
p <- ggplot(df, aes(x = x, y = y)) +
geom_point() +
geom_abline(aes(intercept = intercept, slope = slope),
linetype = "dashed", data = lines)
p
Run Code Online (Sandbox Code Playgroud)
由于我发现无法通过其他问题以编程方式执行此操作,因此我通过数据框“缩放”手动方法,使用反复试验来找出合理的标签位置。
labels <- data.frame(
x = c(rep(1, 3), 0.95, 0.47), …Run Code Online (Sandbox Code Playgroud)