Как автоматически удалить часть легенды, которая была назначена по умолчанию?

Question

У меня есть легенда (Виды) по умолчанию. Есть ли способ удалить «wt» - в конце слов в легенде, автоматически? Спасибо!

Вот код

library(ggplot2) 
library(tidyr) 
library(dplyr) 


weedweights<-data%>% 
    select(-ends_with("No"))%>% 
    gather(key=species, value=speciesmass, DIGSAWt:UnknownmonocotWt)%>% 
    mutate(realmass= (10*speciesmass)/samplearea.m.2.)%>% 
    group_by(Rot.Herb, species)%>% 
    summarize(avgrealmass=mean(realmass, na.rm=TRUE))%>% 
    filter(avgrealmass != "NaN")%>% 
    ungroup() 

ww2 <- weedweights %>% 
    group_by(Rot.Herb) %>% 
    mutate(totalweedweight=sum(avgrealmass)) %>% 
    ungroup() 

ggplot(weedweights, aes(x=1, y=avgrealmass, fill=species, order=avgrealmass)) + 
    geom_bar(position = "fill", stat="identity") + 
    facet_wrap(~ Rot.Herb) + 
    coord_polar("y") + 
    ggtitle("Weedbiomass by crop phase and herbicide regime")+ 
    theme(plot.title = element_text(size=20, face="bold", vjust=2))+ 
    theme(axis.text.x = element_blank(), axis.text.y = element_blank(), axis.ticks = element_blank())+ 
    xlab("Weed dry biomass (kg per ha)")+ 
    ylab("Crop phase and herbicide regime") 

И здесь вы можете увидеть data

Answer 1

Как указаны на З LoFF вы можете заменить звонкое переменную

weedweights <- data%>% 
    select(-ends_with("No"))%>% 
    gather(key=species, value=speciesmass, DIGSAWt:UnknownmonocotWt)%>% 
    mutate(realmass= (10*speciesmass)/samplearea.m.2.)%>% 
    group_by(Rot.Herb, species)%>% 
    summarize(avgrealmass=mean(realmass, na.rm=TRUE))%>% 
    filter(avgrealmass != "NaN")%>% 
    ungroup() %>% mutate(species = gsub("Wt$", "", species))