如何用很少的代码行输入多个级别的R

我想输入Rshiny的selectInput，变量的所有级别都是字符，只有几行代码

var<-c("a","a","b","b","c","d")

那么像这样

c("Whole a"="="a", "Whole b"="b", "Whole c"="c", "Whole d=","d")

例如，全称a意味着我想写以大写字母开头，两个单词之间有空格的级别的完整名称

我想到的第一个解决办法是用浆糊

以输出的形式给出

"a = a, b= b, c = c, d = d"

---

但是，我知道这些代码不足

是否要创建命名向量？像这样的

setNames(unique(var), paste('Whole', unique(var)))

#Whole a Whole b Whole c Whole d 
#    "a"     "b"     "c"     "d" 

---

所以我来澄清一下，像这样的C癌症=a，心脏病=b，没有每次重写变量水平，即a，b…我不明白，我在我的答案中重写变量水平在哪里？我想你的脚本回答了我的问题@Ronak Shah

"a = a, b= b, c = c, d = d"

setNames(unique(var), paste('Whole', unique(var)))

#Whole a Whole b Whole c Whole d 
#    "a"     "b"     "c"     "d"