突变粘贴

Question

我有一个日期，议程，发言者，党和文本的数据(发言者说)。我想重塑数据，以便我有日期，议程，党和合并文本。一直试图与变异，总结，汇总和pmap无效。

有什么想法吗？我非常喜欢避免for循环，因为它们需要三个层，而且我的数据相当大。

到目前为止，我所掌握的内容是：

combining <- df %>% group_by(date, agenda, party) %>% mutate(combined_text = paste(text, sep = "_"))

示例df (抱歉，它是这种笨重的格式)：

           date                                                   agenda party
4908 1988-12-13 Pensioners (Health) [Oral Answers To Questions > Health]   Lab
4909 1988-12-13 Pensioners (Health) [Oral Answers To Questions > Health]   Lab
4910 1988-12-13 Pensioners (Health) [Oral Answers To Questions > Health]   Con
4911 1988-12-13 Pensioners (Health) [Oral Answers To Questions > Health]   Lab
4912 1988-12-13 Pensioners (Health) [Oral Answers To Questions > Health]   Con
4913 1988-12-13 Pensioners (Health) [Oral Answers To Questions > Health]   Con
                   speaker
4908      Alistair Darling
4909           Peter Hardy
4910         Edwina Currie
4911      Alistair Darling
4912         Edwina Currie
4913 Michael McNair-Wilson
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        text
4908                                                                                                                                                                                                                                                                                             To ask the Secretary of State for Health if he plans to add to the advice given by his Under-Secretary of State, the hon. Member for Derbyshire, South (Mrs. Currie) at Reading, to pensioners on keeping healthy during the winter months.
4909                                                                                                                                                                                                                                To ask the Secretary of State for Health if he has received any representations from pensioners or pensioners' organisations about the advice given by the Under-Secretary of State, the hon. Member for Derbyshire, South (Mrs. Currie) at Reading on the subject of keeping healthy during the winter.
4910 On pensioners' health day in Reading the Government drew attention to simple advice on self-help which can make a difference to winter mortality. For the second year running we have a " Keep Warm, Keep Well" campaign, involving the five Government Departments and voluntary organisations, which is proving to be very effective. We have received around 400 letters on the topic. The telephone helpline, run by Help the Aged, is now receiving over 700 calls per week. We are very pleased with the success of the campaign.
4911                                                                                    On reflection, does the hon. Lady consider that her remarks were ill-judged and stupid? For how much longer will she be allowed to act as court jester, deflecting attention from the fact that for many pensioners this Christmas the choice will be between heating their houses and eating? Is she aware that the best Christmas present that she could give most pensioners, and, indeed, many Conservative Members, would be a month's silence.
4912                                                                                                                                                             The hon. Gentleman seems to have forgotten that the worst winter in recent years for excess winter mortality and hypothermia was 1979. If the Opposition had their way, there would be no such campaign. There was no campaign in the 1970s when winter mortality was much higher than now. The advice is plain common sense and the Opposition would do better to back it.
4913                                                                                                                                                                                                                                                                                                                  I congratulate my hon. Friend on her advice for the elderly. Will she confirm that about 20 per cent. of body heat can be lost through the top of the head and that if one wore a hat, the heat loss would be reduced.

Answer 1

下面的应该做你想做的事。注意summarize而不是mutate的使用，以及paste内部的“崩溃”

combining <- df %>% group_by(date, agenda, party) %>% summarize(combined_text = paste(text, collapse = "_"))

Answer 2

您这样做是对的，在paste0()中使用paste0()，也就是当希望行减少使用summarise()时，因为mutate()添加了一个列，但没有减少记录。

样本数据：

df <- data.frame(
  Date = c('1988-12-13','1988-12-13','1988-12-13','1988-12-13','1988-12-14','1988-12-14')
  ,agenda = c('Pensions','Pensions','Pensions','Pensions','1988-12-14','1988-12-14')
  ,party = c('ABC','ABC','ABC','ABC','DEF','DEF')
  ,text = c('Text1','text2','text3','text4','text5','text6')
           )

现在：

df%>%
  group_by(Date,agenda,party)%>%
  summarise(CombinedText = paste0(text,collapse = "_"))

产出：

 Date       agenda     party CombinedText           
  <chr>      <chr>      <chr> <chr>                  
1 1988-12-13 Pensions   ABC   Text1_text2_text3_text4
2 1988-12-14 1988-12-14 DEF   text5_text6  

Answer 3

使用tidyverse，我们可以使用str_c

library(dplyr)
library(stringr)
combined <- df %>%
     group_by(date, agenda, party) %>%
     summarise(CombinedText = str_c(text, collapse = "_"))