将值列表追加到ggplot上

install.packages("ggplot2")
library(ggplot2)

df <- data.frame(x = 1:10, y = rnorm(10))
values <- c(1.2, 1.5, 1.8, 2.1, 2.4)

p <- ggplot(df, aes(x = x, y = y)) +
  geom_line() +
  geom_point()

new_data <- data.frame(x = 1:length(values), y = values)

p_with_values <- p +
  geom_line(data = new_data, aes(x = x, y = y), color = "red") +
  geom_point(data = new_data, aes(x = x, y = y), color = "red")

p_with_values_and_text <- p_with_values +
  geom_text(data = new_data, aes(x = x, y = y, label = y), vjust = -1)

library(ggplot2)

# 原始数据
df <- data.frame(x = 1:10, y = rnorm(10))

# 要追加的值列表
values <- c(1.2, 1.5, 1.8, 2.1, 2.4)

# 创建基本ggplot图形
p <- ggplot(df, aes(x = x, y = y)) +
  geom_line() +
  geom_point()

# 将值列表转换为数据框
new_data <- data.frame(x = 1:length(values), y = values)

# 追加新的数据系列
p_with_values <- p +
  geom_line(data = new_data, aes(x = x, y = y), color = "red") +
  geom_point(data = new_data, aes(x = x, y = y), color = "red")

# 添加文本标注
p_with_values_and_text <- p_with_values +
  geom_text(data = new_data, aes(x = x, y = y, label = y), vjust = -1)

# 显示图形
print(p_with_values_and_text)