使用提取的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=“+ colour = 'blue')错误:意外)‘在”+ colour =’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()

​

​