Question

我正在尝试创建一个包含组成句子的数据框。为了使句子变化，我希望有时将字符串连接到预先存在的字符串，有时不是

示例输入

FD1<-data.frame(c("It is raining","It is snowing","It is stormy"))
FD_try<-list(x="a lot",x="a bit")


It is raining
It is snowing
It is stormy

示例输出1

It is raining a lot
It is snowing
It is stormy

示例输出1

It is raining 
It is snowing a lot
It is stormy a bit

我正在做

out <- apply(FD1, 1, function(x) {

    return(paste(x,sample(FD_try,1,replace=F)))
  })

但始终从FD_try插入。我怎样才能让它有时插入？

Answer 1

也许这有帮助

trimws(paste(FD1[,1], c("", unlist(FD_try))))

Answer 2

你可以这样做：

FD1 <- data.frame(x=c("It is raining", "It is snowing", "It is stormy"))
FD_try <- c("a lot", "a bit", "")
FD1$new <- paste0(FD1$x, sample(FD_try, nrow(FD1), repl=TRUE))
FD1

仅当replace=FALSE

时才能使用nrow(FD1)<=length(FD_try)

有时在R中连接字符串

2 个答案: