明确目标：在市级城市后加一个‘市’字
第一步：导入数据框

library(tidyverse)
consum <-
  read_csv(
    'C:\\Users\\Administrator\\Desktop\\DXYArea.csv'
  )

查看数据

head(consum)

第二步：将这个字形成一列

consum$shi<-c('市')

第三步：利用str_c函数将两列合并

consum$cityName<-str_c(consum$cityName,consum$shi)

第四步：将加入的一列删除

consum<-consum[,-16]

看结果：