如何在GGparcoord R中的平行坐标图形中添加记号？

我正在尝试为平行坐标图（附在下面）中的每个点添加标签。但是，ggplot2中的标签不是文本，而是数字（图中为红色）。在下面的数据示例中，“状态”列用作图形中每个点的标签。我该怎么做

这是一个数据集示例

States     cases      vacancy
AP           20          14
Punjab       45          67
Gujarat      15          45
Rajasthan    10          5

这是我的密码：

require(dplyr)
library(GGally)
library(ggplot2)

df = data

p <- ggparcoord(df, columns=c(2:3), groupColumn = 4, showPoints = TRUE, title = "Vacancy vs cases",
           alphaLines = 0.3) +
  theme(panel.grid.major.x=element_line(colour="grey70"))

p <- p + theme(
  # Remove panel border
  panel.border = element_blank(),  
  # Remove panel grid lines
  panel.grid.major = element_blank(),
  panel.grid.minor = element_blank(),
  # Remove panel background
  panel.background = element_blank(),
  # Add axis line
  axis.line = element_line(colour = "grey")
)

p <-p+ theme_void() 

p <- p+ geom_line()+ geom_text(aes(label = States, colour = "Grey"))

p

require（dplyr）
图书馆（GGALY）
图书馆（GG2）
df=数据
p也许这会有帮助：

    library(GGally)
    library(ggplot2)
        # you'd add the right groupColumn:
    p <- ggparcoord(df, columns=c(2:3),groupColumn = 1,  showPoints = TRUE, title = "Vacancy vs cases",
                alphaLines = 0.3, mapping=aes(color="black")) +
    theme(panel.grid.major.x=element_line())   + 
  theme(
   panel.border = element_blank(),  
   panel.grid.major = element_blank(),
   panel.grid.minor = element_blank(),
   panel.background = element_blank(),
   axis.line = element_line()
       ) +
   theme_void() + 
   geom_line() + geom_text(aes(label = States), color = 'black') + guides(color = FALSE, size = FALSE)

    p

库（GGally）
图书馆（GG2）
#您应该添加正确的groupColumn：
p谢谢@s\t。但是，我不想按州上色。我只想要一种颜色的线条。我该怎么做？@ShreyaAgarwal我找到了一个解决办法，标签的颜色是可定制的，线条颜色只有红色，因为它是作为常量传递的。请参见编辑后的答案。
data <- read.table(text ="States     cases      vacancy
AP           20          14
Punjab       45          67
Gujarat      15          45
Rajasthan    10          5",header = T)