Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/74.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中的一个二维列表_R_Nlp - Fatal编程技术网

将主题连接到R中的一个二维列表

将主题连接到R中的一个二维列表,r,nlp,R,Nlp,我想把所有的主题列都附加到R中的一个列上——把所有的句子组合成一个大句子 我尝试了以下代码,但它没有提供所需的输出: for (b in 1:3) {(for (a in 3:25){olc<-c(vector,ola[b,a])})} View(olc) for(b in 1:3){(for(a in 3:25){olc我不确定您是希望将每行“Top1”、“Top2”、“Top3”中的条目合并到一个条目中,还是只希望它们堆叠在一起。 在第一种情况下,您可能可以执行以下操作: df.ne

我想把所有的主题列都附加到R中的一个列上——把所有的句子组合成一个大句子

我尝试了以下代码,但它没有提供所需的输出:

for (b in 1:3) {(for (a in 3:25){olc<-c(vector,ola[b,a])})}
View(olc)

for(b in 1:3){(for(a in 3:25){olc我不确定您是希望将每行“Top1”、“Top2”、“Top3”中的条目合并到一个条目中,还是只希望它们堆叠在一起。
在第一种情况下,您可能可以执行以下操作:

df.new<- data.frame(Date = df$Date, Label = df$Label, 
                Topic = with(df, paste(Top1, Top2, Top3, sep = " ")))
# or whatever else you want the separator to be, i.e. sep = "," or sep = "-"
df.new2<- cbind(df$Date, df$Label, apply(df[,c("Top1", "Top2", "Top3")], 1,
                                         function(x) list(x)))
colnames(df.new2)<- c("Date", "Label", "Topics")

此外,请尝试发布一小部分数据(不是图像)和首选输出的示例,以便更容易使用。

很抱歉,这不起作用,即使不是数据框,也可以使用2d列表。错误:参数表示行数不同:0、1
df.new2<- cbind(df$Date, df$Label, apply(df[,c("Top1", "Top2", "Top3")], 1,
                                         function(x) list(x)))
colnames(df.new2)<- c("Date", "Label", "Topics")
Topics<- split(df[,c("Top1", "Top2", "Top3")], df$Date)
names(Topics) # this will give you the dates