1

假设我对连接两个变量感兴趣。我从这样的数据集开始：

#what I have
A <- rep(paste("125"),50)
B <- rep(paste("48593"),50)
C <- rep(paste("99"),50)
D <- rep(paste("1233"),50)

one <- append(A,C)
two <- append(B,D)

have <- data.frame(one,two); head(have)
  one   two
1 125 48593
2 125 48593
3 125 48593
4 125 48593
5 125 48593
6 125 48593

一个简单的粘贴命令可以解决问题：

#half way there
half <- paste(one,two,sep="-");head(half)
[1] "125-48593" "125-48593" "125-48593" "125-48593" "125-48593" "125-48593"

但我实际上想要一个看起来像这样的数据集：

#what I desire
E <- rep(paste("00125"),50)
F <- rep(paste("0048593"),50)
G <- rep(paste("00099"),50)
H <- rep(paste("0001233"),50)

three <- append(E,G)
four <- append(F,H)

desire <- data.frame(three,four); head(desire)
  three    four
1 00125 0048593
2 00125 0048593
3 00125 0048593
4 00125 0048593
5 00125 0048593
6 00125 0048593

这样简单的粘贴命令就会生成：

#but what I really want
there <-  paste(three,four,sep="-");head(there)
[1] "00125-0048593" "00125-0048593" "00125-0048593" "00125-0048593"
[5] "00125-0048593" "00125-0048593"

也就是说，我希望连接的第一部分有 5 位数字，第二部分有 7 位数字，并在适用时应用前导零。

我应该先转换数据集以添加前导零，然后执行粘贴命令吗？或者我可以在同一行代码中完成所有操作吗？我放了一个data.table()标签，因为我确信那里有一个我根本不知道的非常有效的解决方案。

@joran 提供的测试解决方案：

one <- sprintf("%05s",one)
two <- sprintf("%07s",two)
have <- data.frame(one,two); head(have)
    one     two
00125 0048593
00125 0048593
00125 0048593
00125 0048593
00125 0048593
00125 0048593
desire <- data.frame(three,four); head(desire)
  three    four
00125 0048593
00125 0048593
00125 0048593
00125 0048593
00125 0048593
00125 0048593

identical(have$one,desire$three)
[1] TRUE
identical(have$two,desire$four)
[1] TRUE
4

2 回答 2

6

也许您正在寻找sprintf：

sprintf("%05d",125)
[1] "00125"
> sprintf("%07d",125)
[1] "0000125"

如果您要填充字符串而不是整数，则可能：

sprintf("%07s","125")
[1] "0000125"
于 2013-04-29T15:07:51.633 回答
3

或使用paste0和paste。paste*已矢量化，因此您可以执行以下操作：

half <- paste(paste0("00",one), paste0("00",two) , sep = "-");head(half)
#[1] "00125-0048593" "00125-0048593" "00125-0048593" "00125-0048593"
#[5] "00125-0048593" "00125-0048593"

但是你有不同的字符串宽度。另一种选择（sprintf在我的系统上没有给出相同的结果）是粘贴比你知道你需要的更多的零，然后修剪到所需的长度：

one <-  paste0("0000000000000000",one)
two <-  paste0("0000000000000000",two)
fst <- sapply( one , function(x) substring( x , first = nchar(x)-4 , last = nchar(x) ) )
snd <- sapply( two , function(x) substring( x , first = nchar(x)-6 , last = nchar(x) ) )
half <- paste( fst , snd , sep = "-");head(half)

但我同意这不是一个特别好的做事方式。sprintf如果我可以使用字符类数据获得该输出，我会使用！（使用数字类）

于 2013-04-29T15:08:46.447 回答