如何在散點圖中添加一條帶有新 x 坐標的線？我收到一條錯誤訊息，指出行 x 值必須與我的散點圖中的 x 值匹配。我嘗試使用 geom_line() 如您所見
library(ggplot2)
x <- c(1,2,3)
y <- c(4,5,6)
a <- seq(0.5,5, by = 0.5)
b <- seq(1,10)
ggplot(as.data.frame(cbind(x,y)), aes(x, y))
geom_point(shape = 1)
geom_point(aes(2.5,2.5, colour = "My Portfolio"),
shape = 18,
size = 3)
geom_line(aes(a, b))
ggtitle("Efficient Frontier")
xlab("Volatility (Weekly)")
ylab("Expected Returns (Weekly)")
theme(plot.title = element_text(size=14, face="bold.italic", hjust = 0.5, margin=margin(0,0,15,0)),
axis.title.x = element_text(size = 10, margin=margin(15,0,0,0)),
axis.title.y = element_text(size = 10, margin=margin(0,15,0,0)),
panel.border = element_rect(colour = "black", fill=NA, size=1),
legend.position = c(0.93,0.06),
legend.title = element_blank(),
legend.text = element_text(size=8),
legend.background = element_rect(color = "black"),
legend.key=element_blank())
謝謝！
uj5u.com熱心網友回復：
您必須提供一個新data.frame的geom_line()并相應地設定美學。
library(ggplot2)
x <- c(1,2,3); y <- c(4,5,6)
a <- seq(0.5,5, by = 0.5); b <- seq(1,10)
ggplot(as.data.frame(cbind(x,y)), aes(x, y))
geom_point(shape = 1)
geom_point(aes(2.5,2.5, colour = "My Portfolio"),
shape = 18,
size = 3)
geom_line(data=data.frame(a,b), mapping=aes(x=a, y=b))
ggtitle("Efficient Frontier")
xlab("Volatility (Weekly)")
ylab("Expected Returns (Weekly)")
theme(plot.title = element_text(size=14, face="bold.italic", hjust = 0.5, margin=margin(0,0,15,0)),
axis.title.x = element_text(size = 10, margin=margin(15,0,0,0)),
axis.title.y = element_text(size = 10, margin=margin(0,15,0,0)),
panel.border = element_rect(colour = "black", fill=NA, size=1),
legend.position = c(0.93,0.06),
legend.title = element_blank(),
legend.text = element_text(size=8),
legend.background = element_rect(color = "black"),
legend.key=element_blank())
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/419355.html
標籤：