R 更改 Dataframe 中的元素

Question

正如標題所說，我正在嘗試將 dataframe 中的元素從一個字符更改為另一個字符。 dataframe如下：

g1=c("CC","DD","GG")
g2=c("AA","BB","EE")
g3=c("HH","II","JJ")

df=data.frame(g1,g2,g3)

我希望將元素從字母格式轉換為字母/字母格式（例如 CC 到 C/C 或 AA 到 A/A）

我知道使用“strsplit”可以在列表中使用。 我也知道我需要以某種方式合並：collapse="/"

如何將 strsplit function 應用於整個 dataframe？

我在想一些事情：

split=function(x)
{
  unlist(paste(strsplit(x,""),collapse="/"))
}

j=as.data.frame(apply(df,1,split))

但它沒有給出預期的結果。

更新----------------顯然，以下腳本有效：

split=function(x)
{
  paste(unlist(strsplit(x,"")),collapse="/")
}

p=apply(df,c(1,2),split)

如果有更高效或方便的方法，歡迎分享。

Answer 1

我可以想到兩種方法來解決這個問題。 一種是像你一樣使用strsplit 。 您只錯過了遍歷從strsplit返回的列表中的每個元素的部分：

Split <- function(x) {
  #unlist(lapply(strsplit(x, ""), paste, collapse="/"))
  sapply(strsplit(x, ""), paste, collapse="/")
}
as.data.frame(lapply(df, Split))

另一種方法是使用gsub和\\B符號，它匹配不在“單詞”開頭或結尾的空字符串。

as.data.frame(lapply(df, gsub, pattern="\\B", replacement="/"))

什么構成“單詞”取決於語言環境和實現，所以這里有另一個使用gsub和反向引用的解決方案。

as.data.frame(lapply(df, gsub, pattern="(.)(.)", replacement="\\1/\\2"))

Answer 2

從這樣的 function 定義開始

insertslash <- function(x) sapply(strsplit(x, ""), function(x) paste(x, collapse="/"))

通過insertslash(g1)說服自己它應該做的事情。

要將其應用於 dataframe 的所有列，請執行以下操作：

as.data.frame(apply(df, 2, insertslash))

顯然，你可以把它變成一個討厭的單行：

as.data.frame(apply(df, 2, function(x) sapply(strsplit(x, ""), function(x) paste(x, collapse="/"))))

Answer 3

這是使用gsub的一些技巧。 對正則表達式了解更多的人應該能夠對此進行改進：

mySplit <- function(x)
{
  substr(gsub("","/",x),2,4)
}

as.data.frame(apply(df,2,mySplit))

您最初的解決方案不起作用的原因是您在錯誤的位置unlist 。 因此，如果您稍后lapply unlist事情會按您的預期工作：

mySplit1 <- function(x)
{
  unlist(lapply(strsplit(x,""),paste,collapse="/"))
}

as.data.frame(apply(df,2,mySplit1))

Answer 4

另一個使用 paste() 的 hack，絕對沒有那么優雅，但它完成了工作。

for (col in 1:ncol(df)){
  df[,col] = paste(substr(df[,col],1,1),"/",substr(df[,col],1,1), sep="")
}