图例未出现在 R 图中

Question

我正在使用 R。我制作了以下图表：

#create data
a = abs(rnorm(100,10,10))
b = abs(rnorm(100,10,10))
i = 1
c = data.frame(a,b,i)
c$col = as.factor(ifelse(c$b>10,"red", "blue"))

a = abs(rnorm(100,10,10))
b = abs(rnorm(100,10,10))
i = 2
d = data.frame(a,b,i)
d$col = as.factor(ifelse(d$a>10,"red", "blue"))

a = abs(rnorm(100,10,10))
b = abs(rnorm(100,10,10))
i = 3
e = data.frame(a,b,i)
e$col = as.factor(ifelse(e$b>10,"red", "blue"))




#create data
a = abs(rnorm(100,10,10))
b = abs(rnorm(100,10,10))
i = 1
c = data.frame(a,b,i)
c$col = as.factor(ifelse(c$b>10,"red", "blue"))

plot_1 = plot(c$a, type = "h", col = c$col, main = "plot_1, i = 1")



plot_2 = plot(d$a, type = "h", col = d$col, main = "plot_2, i = 2")



plot_3 = plot(e$a, type = "h", col = e$col, main = "plot_3, i = 3")

我正在尝试为所有这些情节添加图例：

plot_1 = plot(c$a, type = "h", col = c$col, main = "plot_1, i = 1")


legend(1, 95, legend=c("Sampled", "Not Sampled"),
       col=c("red", "black"), lty=1:2, cex=0.8)

plot_2 = plot(d$a, type = "h", col = d$col, main = "plot_2, i = 2")

legend(1, 95, legend=c("Sampled", "Not Sampled"),
       col=c("red", "black"), lty=1:2, cex=0.8)

plot_3 = plot(e$a, type = "h", col = e$col, main = "plot_3, i = 3")

legend(1, 95, legend=c("Sampled", "Not Sampled"),
       col=c("red", "black"), lty=1:2, cex=0.8)

但是 none 这些传说正在出现。有谁知道为什么这些传说不起作用？我知道如何在 ggplot 中执行此操作，但它不适用于 R 中的基本图。我在此处遵循此网站的说明：http://www.sthda.com/english/wiki/add-legends-to-plots-in-r-software-the-easiest-way。有人可以告诉我如何解决这个问题吗？

谢谢

Answer 1

legend 位置在 ylim 之外，即默认情况下，ylim 是根据 min/max 值计算的，更改 ylim 和它出现。即当前 ylim 位于 0、35，而为 y 轴指定的位置是 95（巨大差异）

plot(c$a, type = "h", col = c$col, main = "plot_1, i = 1", 
      ylim = c(0, 100))
legend(1, 95, legend=c("Sampled", "Not Sampled"),
        col=c("red", "black"), lty=1:2, cex=0.8)

-输出

图例未出现在 R 图中

Legends not Showing up in R plots

plot

r

data-visualization

graph