如何在绘图中使用新的分组值

Question

我在变量“Wine_type”

下组合了不同的值，意思相同

 Mock     Neg Neg1PCR  NegPBS     red     Red RedWine   water   Water   white   White 
  1       9       1       1       2      18       4       3       4       2      24 

进入

Mock       Neg   Neg1PCR    NegPBS   Redwine     Water Whitewine 
    1         9         1         1        24         7        26 

使用此代码

dat2<- data.frame(sample_data(psdata.r), stringsAsFactors =FALSE )
dat2$Project<- as.character(dat2$Wine_type)
table(dat2$Project)
dat2[grepl("water|water", dat2$Project, ignore.case = TRUE), "Project"] <- "Water"

dat2[grepl("White|white", dat2$Project, ignore.case = TRUE), "Project"] <- "Whitewine"

dat2[grepl("red|Red", dat2$Project, ignore.case = TRUE), "Project"] <- "Red"

dat2[grepl("Red|Redwine", dat2$Project, ignore.case = TRUE), "Project"] <- "Redwine"

然后我用代码生成一个图

   plot_richness(psdata.r, measures = c("Observed","Shannon"), x = "Wine_type", color = "SampleType") + geom_boxplot()

唯一的问题是我得到了一个带有旧值的情节。使用新组合值的时候我缺少什么？