Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/66.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R-用character()填充空的data.frame_R_Dataframe_Rbind - Fatal编程技术网

R-用character()填充空的data.frame

R-用character()填充空的data.frame,r,dataframe,rbind,R,Dataframe,Rbind,具有ID的数据帧元素列表和以下形式的句子: (编辑开始 代码需要在循环中工作-因此我确实希望明确地首先创建一个空数据帧,然后填充它,然后删除内容,然后重新填充,。。 编辑结束) 观察:下面的代码是有效的——尽管看起来与注释的代码不一致 sent.df <- data.frame(ID=numeric(), Sentences=numeric()) # inconsistent class initialization sent.df[1,] <- c("01xx", "ab")

具有ID的数据帧元素列表和以下形式的句子:

编辑开始 代码需要在循环中工作-因此我确实希望明确地首先创建一个空数据帧,然后填充它,然后删除内容,然后重新填充,。。 编辑结束

观察:下面的代码是有效的——尽管看起来与注释的代码不一致

sent.df <- data.frame(ID=numeric(), Sentences=numeric()) # inconsistent class initialization

sent.df[1,] <- c("01xx", "ab")           # rbind doesn't work. see above.
sent.df <- rbind(sent.df, c(id2, sent2))
sent.df <- rbind(sent.df, c(id3, sent3))
sent.df <- rbind(sent.df, c(id4, sent4))
也许你可以

sent.df <- data.frame( 
   id=c("01xx", "02xx", "03xx", "04xx"),
   sentences=c("ab", "bc", "cd", "de")
)
sent.df也许你可以

sent.df <- data.frame( 
   id=c("01xx", "02xx", "03xx", "04xx"),
   sentences=c("ab", "bc", "cd", "de")
)

sent.df如果您想轻松完成此操作,只需在操作前设置此选项,即可避免绑定时的
因素

options(stringsAsFactors = FALSE)

如果您想轻松地执行此操作,只需在操作前设置此选项,即可避免绑定时的
因子

options(stringsAsFactors = FALSE)

sent.df
sent.df 1A谢谢!你是说这个吗<代码>已发送。谢谢!你是说这个吗<代码>sent.df
sent.df <- data.frame( 
   id=c("01xx", "02xx", "03xx", "04xx"),
   sentences=c("ab", "bc", "cd", "de")
)
sent.df <- data.frame()
adding <- TRUE
while(adding) {
  current_id <- "next_id"
  current_sent <- "next_sent"
  sent.df <- rbind(sent.df, data.frame(id=current_id, sentences=current_sent))
  adding <- FALSE
}
options(stringsAsFactors = FALSE)
sent.df <- data.frame(ID=id1, Sentences=sent1, stringsAsFactors=FALSE)
sent.df <- rbind(sent.df, c(id2, sent2))
sent.df <- rbind(sent.df, c(id3, sent3))
sent.df <- rbind(sent.df, c(id4, sent4))
sent.df
#     ID Sentences
# 1 01xx        ab
# 2 02xx        bc
# 3 03xx        cd
# 4 04xx        de