如何解决如何在R中整理凌乱的日期
我有一个名为My_dataframe的数据框
Date <-c("2020-02-24","2020-03-24","2020-04-24","2020-05-24","2020-02-24","2020-05-24")
Country <- c("Germany","Germany","India","Brazil","Brazil")
Region <- c("Europe","Europe","Asia","South America","South America")
Cases <- c(3,4,7,8,21,22,26,33,15,13,44,10)
My_dataframe <- data.frame(Date,Country,Region,Cases)
如果您注意的话，日子会在同一列“日期”中重复：您拥有一个国家/地区的所有日子，然后是下一国家/地区的所有日子。 因此，我想按日期对每个区域中的个案进行汇总，并按变量（列）的方式放置区域。我想要实现的是这样的：
# each day appears once instead of repeating
Date <- c("2020-02-24","2020-05-24")
Europe <- c(25,36,45,40)
Asia <- c(12,21)
America <- c(33,31,27,29)
New_dataframe <- data.frame(Date,Europe,Asia,America)
对不起，如果问题很愚蠢，我在这个世界上乞讨。我感谢有人可以提供帮助！
解决方法
我们可以使用@Mapper(componentModel = "spring",injectionStrategy = InjectionStrategy.CONSTRUCTOR)
public interface ExamMapper {
@Mapping(source = "scans",target = "isotopes")
Exam valueFrom(tld.domain.Exam entity);
Isotope valueFrom(tld.domain.Isotope isotope);
default Set<Isotope> flatMapIsotopes(Set<Scan> scans) {
return scans.stream()
.flatMap(scan -> scan.getIsotopes().stream())
.map(this::valueFrom)
.collect(Collectors.toSet());
}
}
并将pivot_wider指定为values_fn
sum首先，您可以按Date和Region对表格进行分组以计算总计，然后使用pivot_wider为每个区域创建一列：
library(tidyverse)
My_dataframe %>%
group_by(Date,Region) %>%
summarise(total = sum(Cases)) %>%
pivot_wider(names_from = Region,values_from = total)
根据您对数据的处理方式，最好不要等到稍后再进行pivot_wider步骤。原始数据框为“整齐的数据”格式，如果要创建图或进行进一步的分析，则更易于使用。
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。