r - 在 r 中订购 stings 列表
问题描述
我拥有的数据包括两个变量:id
和income
(字符列表)
id <- seq(1,6)
income <- c("2322;5125",
"0110;2012",
"2212;0912",
"1012;0145",
"1545;1102",
"1010;2028")
df <- data.frame(id, income)
df$income <- as.character(df$income)
我需要添加第三列income_order
,其中包括列收入的有序值。最终输出看起来像
注意:我仍然需要保留前导零
解决方案
我们可以在 上拆分字符串";"
,sort
然后paste
将字符串拆分回来。
df$income_order <- sapply(strsplit(df$income, ";"), function(x)
paste(sort(x), collapse = ";"))
df
# id income income_order
#1 1 2322;5125 2322;5125
#2 2 0110;2012 0110;2012
#3 3 2212;0912 0912;2212
#4 4 1012;0145 0145;1012
#5 5 1545;1102 1102;1545
#6 6 1010;2028 1010;2028
推荐阅读
- javascript - Modernizr 课堂作业
- testing - 测试 API,动态线程
- javascript - 到达文本末尾时如何移动到下一页?
- javascript - 使用javascript的html循环
- r - 为什么 Kable 会在我的表中添加一个不存在的列?
- r - 删除行 if 语句
- nginx - 由于 PWA 服务工作者缓存,身份验证基本 401 页面不提示输入凭据
- javascript - js中的引用元素、元素变量、innerHtml
- xamarin - 如何在 Xamarin.Forms 中接收来自服务器的响应
- sql-server - SQL Server 无法处理该列,因为为其指定了多个代码页(65001 和 1252)