如何将两行(由字符组成)组合成一个

时间:2016-04-26 01:26:11

标签: r

我正在尝试将两行(没有行名称)组合成一行。我知道我可以使用聚合,如果它是单元格数字/浮点数,还是我仍然可以在字符上使用聚合?

example of what the two rows look like

2 个答案:

答案 0 :(得分:1)

我在这里实现了类似的功能,使用“day.of.week”函数*来获取一列日期,并返回“星期几”列:

web.xml

注意我已将它放入ifelse中,以避免尝试计算空的或NA字段的星期几。

基本上,chron中的“day.of.week”函数(因此确保运行chron包)会为每个日期返回1到7之间的值。然后使用1-7值从我所做的名为“day.values”的列表中提取“day”的文本值。

  • 请注意,“day.of.week”的输入格式为(年,月,日),即2016年4月26日:

    output$day <- ifelse( is.na( output$date ), NA,
                               day.of.week( as.integer( substr( as.character( output$date ), 6, 7 ) ),
                                            as.integer( substr( as.character( output$date ), 9, 10 ) ),
                                            as.integer( substr( as.character( output$date ), 1, 4 ) )
                               ) + 1L )
    day.values <- c( "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" )
    output$day <- day.values[ output$day ]
    

    我的代码以“日期”格式输入日期,意思是:

    day.of.week( 2016, 04, 26 )
    

答案 1 :(得分:0)

我会再试一次:

让我们按照您所拥有的方式创建一个矩阵:

new <- matrix( data = NA, nrow = 2, ncol = 2 )
new[1,] <- c( "Tue", "Wed" )
new[2,] <- c( 1, 2 )

现在让我们通过组合我们得到的两行来创建一个新的向量:

newer <- paste0( new[1,], new[2,] )

现在我们可以将它绑定到矩阵的底部:

new <- rbind( new, newer )

这样做你需要的吗?