小编cod*_*erX的帖子

有没有一种简单的方法可以将美元符号添加到我拥有的列中？除了小数、逗号等之外，我找不到任何方法format()。例如，我有：

numbers <- data.frame(x1 = 1:4, x5 = 11:14, x6 = 21:24, y = 31:34)

如何格式化numbers$y以使其前面有美元符号？

我已将一堆我的列从因子转换为数字,但代码非常繁琐.我不得不单独转换每一列,最终花费的时间比它应该多.这是我使用的代码(只是一个简短的示例 - 我实际上有更多列):

city1$NY <-as.numeric(levels(city1$NY))[city1$NY]   
city1$CHI<-as.numeric(levels(city1$CHI))[city1$CHI] 
city1$LA <-as.numeric(levels(city1$LA))[city1$LA]   
city1$ATL<-as.numeric(levels(city1$ATL))[city1$ATL] 
city1$MIA<-as.numeric(levels(city1$MIA))[city1$MIA]

我几乎是肯定的,而不是做所有这些,我可以做到:

city1[,CityNames]<-as.numeric(levels(city1[,CityNames]))[city1[,CityNames]]

其中CityNames只是我要转换的数据的所有列.但是这不起作用,因为我得到:

Error in as.numeric(levels(city1[, CityNames]))[city1[, CityNames]] : 
  invalid subscript type 'list'

谁能说出我做错了什么？或者除了我漫长而讨厌的第一种方法之外,还有简单的方法来完成这项任务吗？