Question

我的数据框看起来像这样：

  V2 V3 V4
ID "1A" "1B" "2D"
H 11 16 12
M 14 15 13
S 13 56 34

我想将两行称为＆＃34; Case＆＃34;和＆＃34; Reg＆＃34;分成一行叫做＃34; ID＆＃34;。我希望它看起来像这样：

jQuery("select[name*=super_attribute]").on('change , hover', function(){
 alert('trigger'); 
});

如果有人对此有一个简单的解决方案，我将非常感激！

Answer 1

这是一个有很多粘贴的想法，即

unname(sapply(df, function(i) 
                 paste(paste(i[1:2], collapse = ''), '=', paste(i[3:5], collapse = ':'))))

#[1] "1A = 11:14:13" "1B = 16:15:56" "2D = 12:13:34"

修改

根据您更新的问题，我们可以执行以下操作，

df1 <- rbind(paste0(df['Case',], df['Reg',]), df[3:nrow(df),]) rownames(df1)[1] <- 'ID' df1 # V2 V3 V4 #ID 1A 1B 2D #H 11 16 12 #M 14 15 13 #S 13 56 34

合并数据框中的两行

1 个答案: