r - 使用提取的 RDA 结果创建 RDA 双图并合并到图形

Question

目前正在尝试使用提取的数据来创建两个单独的 RDA 双图。使用以下代码：

p <- ggplot()
p + geom_vline(x=0,colour="grey50") +
    geom_hline(y=0,colour="grey50") +
    geom_text(data = PHYTOPLANKTON_coordinates_scaling_2, aes(x = RDA1, y = RDA2, 
          label=rownames(PHYTOPLANKTON_coordinates_scaling_2)), angle=45, size=3,
          colour = 'blue') +
    geom_segment(data = WQ_coordinates_scaling_2, aes(x = 0, y = 0, 
          xend = RDA1, yend = RDA2), size = 0.5, colour = 'red') +
    geom_text(WQ_coordinates_scaling_2, aes(x = RDA1, y = RDA2,
          label = rownames(WQ_coordinates_scaling_2)), size = 5, angle = 45, 
          vjust = 1, colour = 'violet') +
    theme_bw()

这导致：

错误：意外'=' in：“+ geom_text(data = PHYTOPLANKTON_coordinates_scaling_2, aes(x = RDA1, y = RDA2, + label=" + color = 'blue') 错误：意外')' in "+ color = 'blue ')"

Answer 1

set.seed(123)
# Generate toy data
n <- 20
PHYTOPLANKTON_coordinates_scaling_2 <-
data.frame(RDA1 = rnorm(n), RDA2 = rnorm(n))
rownames(PHYTOPLANKTON_coordinates_scaling_2) <- LETTERS[1:n]    
k <- 4
WQ_coordinates_scaling_2 <-
data.frame(RDA1 = rnorm(k), RDA2 = rnorm(k))
rownames(WQ_coordinates_scaling_2) <- paste0("V",1:k)

# Plot data   
library(ggplot2)
p <- ggplot()
p + geom_vline(xintercept=0,colour="grey50") +
    geom_hline(yintercept=0,colour="grey50") +
    geom_text(data=PHYTOPLANKTON_coordinates_scaling_2, aes(x=RDA1, y=RDA2, 
          label=rownames(PHYTOPLANKTON_coordinates_scaling_2)), angle=45, size=3,
          colour = 'blue') +
    geom_segment(data=WQ_coordinates_scaling_2, aes(x = 0, y = 0, 
          xend = RDA1, yend = RDA2), size = 0.5, colour = 'red') +
    geom_text(data=WQ_coordinates_scaling_2, aes(x=RDA1, y=RDA2,
          label = rownames(WQ_coordinates_scaling_2)), size = 5, angle = 45, 
          vjust = 1, colour = 'violet') +
    theme_bw()