拆分值，然后使用 R 对它们进行操作

Question

我有一个包含 3 列的 data.frame。第三列有数字或字符类型“1:5”、“30:20”、“1:10”等。我试图将具有这些字符的值分成两部分，然后将它们分开，但我我被这个困住了：

    datos[,3]=gsub(":", " ", datos[,3])
    if (datos[,1]==TRUE)
    {
    s=datos[,3]
    chr.pos <- which(unlist(strsplit(s,NULL)) == " ") 
    chr.count <- length(chr.pos)
    one=as.numeric(substr(s,1,chr.pos-1))
    two=as.numeric(substr(s,chr.pos+1,nchar(as.character(s))))
    datos[,3]=round(two/one,5)
    }

Answer 1

如果您可以确定始终有两个数字用冒号分隔，: 您可以执行以下操作：

x <- c('1:5', '30:20', '1:10')
strsplit(x, ':')

lapply(strsplit(x, ':'), function(v) as.integer(v[1])/as.integer(v[2]))

然后将其分配回您想要的位置。如果它是一个data.frame：

datos[,3] <- unlist(lapply(strsplit(x, ':'), function(v) as.integer(v[1])/as.integer(v[2]))
)

---

浏览那些东西：

strsplit 返回一个向量列表，其中包含您传递的拆分字符两侧的内容（我使用了:）。看看它的作用：

str(strsplit(x, ':'))

List of 3
 $ : chr [1:2] "1" "5"
 $ : chr [1:2] "30" "20"
 $ : chr [1:2] "1" "10"

lapply 作用于列表，将您指定的函数应用于列表的每个元素。我定义了一个函数，它将v 的第一个值除以第二个值。但是，我需要将它们强制转换为数字，因为它们来自 strsplit 作为字符串。

最后，lapply 也返回一个列表。如果您将其直接分配给您的 data.frame 的列，您将会有一个不愉快的惊喜。相反，请使用 unlist 将列表更改为向量并将其分配给您的 data.frame 列。

另外，正如 mnel 在评论中提到的那样，data.table 是一个 R 包，它具有一些出色的功能，但与基本 R 数据结构 data.frame 的语法大不相同。

Answer 2

试试这个。注意：添加了“col.names”以禁止默认处理行名。

x=c("1", "2", "3", "2:3","4","5","3:2")
 datos <- data.frame(1:7, 1:7, x=x)
newframe <- cbind( datos[1:2], 
                 read.table(text= as.character(datos[[3]]), sep=":",
                            fill=TRUE, colClasses="numeric", 
                           col.names=c("V3", "V4")
                           )
                  )

> newframe
  X1.7 X1.7.1 V3 V4
1    1      1  1 NA
2    2      2  2 NA
3    3      3  3 NA
4    4      4  2  3
5    5      5  4 NA
6    6      6  5 NA
7    7      7  3  2