- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有一份按年份和职位划分的竞赛获胜者名单,如下所示:
dput(data)
structure(list(Year = c(1930L, 1934L, 1938L, 1950L, 1954L, 1958L,
1962L, 1966L, 1970L, 1974L, 1978L, 1982L, 1986L, 1990L, 1994L,
1998L, 2002L, 2006L, 2010L, 2014L), Country = structure(c(14L,
7L, 5L, 2L, 13L, 12L, 3L, 4L, 9L, 6L, 1L, 11L, 9L, 7L, 15L, 5L,
8L, 6L, 10L, 2L), .Label = c("Argentina", "Brazil", "Chile",
"England", "France", "Germany", "Italy", "Korea/Japan", "Mexico",
"South Africa", "Spain", "Sweden", "Switzerland", "Uruguay",
"USA"), class = "factor"), Winner = structure(c(8L, 6L, 6L, 8L,
5L, 2L, 2L, 3L, 2L, 5L, 1L, 6L, 1L, 5L, 2L, 4L, 2L, 6L, 7L, 5L
), .Label = c("Argentina", "Brazil", "England", "France", "Germany",
"Italy", "Spain", "Uruguay"), class = "factor"), Runners.Up = structure(c(1L,
3L, 6L, 2L, 6L, 9L, 3L, 5L, 7L, 8L, 8L, 5L, 5L, 1L, 7L, 2L, 5L,
4L, 8L, 1L), .Label = c("Argentina", "Brazil", "Czechoslovakia",
"France", "Germany", "Hungary", "Italy", "Netherlands", "Sweden"
), class = "factor"), Third = structure(c(13L, 6L, 2L, 11L, 1L,
5L, 3L, 10L, 6L, 9L, 2L, 9L, 5L, 7L, 11L, 4L, 12L, 6L, 6L, 8L
), .Label = c("Austria", "Brazil", "Chile", "Croatia", "France",
"Germany", "Italy", "Netherlands", "Poland", "Portugal", "Sweden",
"Turkey", "USA"), class = "factor"), Fourth = structure(c(16L,
1L, 14L, 13L, 15L, 7L, 16L, 12L, 15L, 3L, 8L, 6L, 2L, 5L, 4L,
10L, 9L, 11L, 15L, 3L), .Label = c("Austria", "Belgium", "Brazil",
"Bulgaria", "England", "France", "Germany", "Italy", "Korea Republic",
"Netherlands", "Portugal", "Soviet Union", "Spain", "Sweden",
"Uruguay", "Yugoslavia"), class = "factor"), GoalsScored = c(70L,
70L, 84L, 88L, 140L, 126L, 89L, 89L, 95L, 97L, 102L, 146L, 132L,
115L, 141L, 171L, 161L, 147L, 145L, 171L), QualifiedTeams = c(13L,
16L, 15L, 13L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 24L, 24L, 24L,
24L, 32L, 32L, 32L, 32L, 32L), MatchesPlayed = c(18L, 17L, 18L,
22L, 26L, 35L, 32L, 32L, 32L, 38L, 38L, 52L, 52L, 52L, 52L, 64L,
64L, 64L, 64L, 64L), Attendance = c(590549L, 363000L, 375700L,
1045246L, 768607L, 819810L, 893172L, 1563135L, 1603975L, 1865753L,
1545791L, 2109723L, 2394031L, 2516215L, 3587538L, 2785100L, 2705197L,
3359439L, 3178856L, 3386810L)), .Names = c("Year", "Country",
"Winner", "Runners.Up", "Third", "Fourth", "GoalsScored", "QualifiedTeams",
"MatchesPlayed", "Attendance"), class = "data.frame", row.names = c(NA,
-20L))
绘制获胜者图表时,我只使用以下内容:
p1 <- ggplot(data, aes(fct_infreq(Winner), fill=as.factor(Winner))) +
geom_bar()+
labs(title="Number of World Cup Wins Per Nation",
y="Number of World Cups", x="")+
scale_fill_hue(c=45, l=80)+
theme(legend.position = "none",
axis.text.x = element_text(angle = 75, hjust = 1),
plot.title = element_text(hjust = 0.5))
但是我想不通的是创建相同的条形图,但同时将所有团队添加到“亚军”、“第三”和“第四”列中。
我尝试使用 aggregate
但没有成功。
谢谢
最佳答案
此解决方案仅计算团队进入前 4 名的频率,并制作您之前的条形图。
require(tidyverse)
df %>%
gather(key="variable", value = "value", Winner, Runners.Up, Third, Fourth) -> df_new
df_new %>%
ggplot(aes(fct_infreq(value), fill=as.factor(value))) + geom_bar() +
labs(title="Number of World Cup Wins Per Nation",
y="Number of ---", x="")+
scale_fill_hue(c=45, l=80)+
theme(legend.position = "none",
axis.text.x = element_text(angle = 75, hjust = 1),
plot.title = element_text(hjust = 0.5))
您还可以使用 facet_wrap 之类的东西为各个展示位置生成单独的图:
df_new %>%
ggplot(aes(fct_infreq(value), fill=as.factor(value))) + geom_bar() + facet_warp(~variable) +
labs(title="Number of World Cup Wins Per Nation",
y="Number of ---", x="")+
scale_fill_hue(c=45, l=80)+
theme(legend.position = "none",
axis.text.x = element_text(angle = 75, hjust = 1),
plot.title = element_text(hjust = 0.5))
如果您不介意使用图例,我们还可以使用颜色来指示国家/地区的位置:
df_new %>%
ggplot(aes(fct_infreq(value), fill=as.factor(variable))) + geom_bar() +
labs(title="Number of World Cup Wins Per Nation",
y="Number of ---", x="")+
scale_fill_hue(c=45, l=80)+
theme(axis.text.x = element_text(angle = 75, hjust = 1),
plot.title = element_text(hjust = 0.5))
关于r - R 中 Barplot 的聚合分组,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/50804239/
您好,我正在处理 BIRT 报告。我有一个查询,我必须对父级的重复数据进行分组,但子级也不能分组! 在我的查询中: item 是父项,item_ledger_entry 是子项。我有来自 item.N
我正在使用 GA API。 这是针对 MCF 目标报告(底部)的标准目标完成指标表(顶部) 看一下这个: 总数加起来 (12,238),但看看按 channel 分组的分割有多么不同!我以为这些会很接
我正在开发一个流量计数器,我想获得 IP 和重复计数,但是如何? 就像是 :select ip, count(ip) from Redirect 返回 : null total ip count 重定
我尝试编写一个正则表达式来匹配条件表达式,例如: a!=2 1+2=2+a 我尝试提取运算符。我当前的正则表达式是“.+([!=<>]+).+” 但问题是匹配器总是尝试匹配组中可能的最短字符串
在 MS Transact SQL 中,假设我有一个这样的表(订单): Order Date Order Total Customer # 09/30/2008 8
我想按 m.ID 分组,并对每个 m.id 求和 (pm.amount_construction* prod.anzahl) 实际上我有以下结果: Meterial_id | amount_const
我想根据多列中的值对值进行分组。这是一个例子: 我想得到输出: {{-30,-50,20},{-20,30,60},{-30,NULL or other value, 20}} 我设法到达: SELE
我正在尝试找出运行此查询的最佳方式。我基本上需要返回在我们的系统中只下了一个订单的客户的“登录”字段列表(登录字段基本上是客户 ID/ key )。 我们系统的一些背景...... 客户在同一日期下的
给定以下mysql结果集: id code name importance '1234', 'ID-CS-B', 'Chocolate Sauce'
大家好,我的数据框中有以下列: LC_REF 1 DT 16 2C 2 DT 16 2C 3 DT 16 2C 1 DT 16 3C 6 DT 16 3C 3
我有这样的 mongoDB 集合 { "_id" : "EkKTRrpH4FY9AuRLj", "stage" : 10, }, { "_id" : "EkKTRrpH4FY9
假设我有一组数据对,其中 index 0 是值,index 1 是类型: input = [ ('11013331', 'KAT'), ('9085267',
java中用stream进行去重,排序,分组 一、distinct 1. 八大基本数据类型 List collect = ListUtil.of(1, 2, 3, 1, 2).stream().fil
基本上,我从 TABLE_A 中的这个开始 France - 100 France - 200 France - 300 Mexico - 50 Mexico - 50 Mexico - 56 Pol
我希望这个正则表达式 ([A-Z]+)$ 将选择此示例中的最后一次出现: AB.012.00.022ABC-1 AB.013.00.022AB-1 AB.014.00.022ABAB-1 但我没有匹配
我创建了一个数据透视表,但数据没有组合在一起。 任何人都可以帮助我获得所需的格式吗? 我为获取数据透视表而编写的查询: DECLARE @cols AS NVARCHAR(MAX), -- f
我想按时间段(月,周,日,小时,...)选择计数和分组。例如,我想选择行数并将它们按 24 小时分组。 我的表创建如下。日期是时间戳。 CREATE TABLE MSG ( MSG_ID dec
在 SQL Server 2005 中,我有一个包含如下数据的表: WTN------------Date 555-111-1212 2009-01-01 555-111-1212 2009-
题 假设我有 k 个标量列,如果它们沿着每列彼此在一定距离内,我想对它们进行分组。 假设简单 k 是 2 并且它们是我唯一的列。 pd.DataFrame(list(zip(sorted(choice
问题 在以下数据框中 df : import random import pandas as pd random.seed(999) sz = 50 qty = {'one': 1, 'two': 2
我是一名优秀的程序员,十分优秀!