R 绘制每个点两次

我正试图为我所在的棒球联盟制作一个动画气泡图。一旦我创建了动画图形并将其转换为gif，它会将每个团队打印两次，如下图所示。传奇应该只有14分/队，但它显示的是28分

我的代码如下：

library(ggplot2)
library(gganimate)
library(readxl)
library(gifski)
library(png) 

myData <- read_excel("~/Desktop/Dynasty - Fantasy Baseball.xlsx")

# Make a ggplot, but add frame=year: one image per year
g <- ggplot(myData, aes(PF, PA, size = `W%`, color = Team)) +
  geom_point() +
  theme_bw() +
  # gganimate specific bits:
  labs(title = 'Period: {frame_time-1900}', x = 'Points For', y = 'Points Against') +
  transition_time(Year) +
  ease_aes('linear')


# Save at gif:
anim_save(filename = "~/Desktop/FantasyBaseballAnimated.gif", animation = g)

structure(list(Team = c("Houston Astros", "Miami Marlins", "New York Mets", 
"Atlanta Braves", "St. Louis Cardinals", "Cincinatti Reds", "Philadelphia Reds", 
"Baltimore Orioles", "Milwaukee Brewers", "Washington Nationals", 
"Montreal Expos", "Tampa Bay Rays", "Seattle Mariners", "Brooklyn Dodgers", 
"Houston Astros", "Miami Marlins", "New York Mets", "Atlanta Braves", 
"St. Louis Cardinals", "Cincinatti Reds", "Philadelphia Reds", 
"Baltimore Orioles", "Milwaukee Brewers", "Washington Nationals", 
"Montreal Expos", "Tampa Bay Rays", "Seattle Mariners", "Brooklyn Dodgers", 
"New York Mets ", "St. Louis Cardinals ", "Cincinatti Reds ", 
"Washington Nationals ", "Atlanta Braves ", "Miami Marlins ", 
"Philadelphia Phillies ", "Tampa Bay Rays ", "Houston Astros ", 
"Montreal Expos ", "Baltimore Orioles ", "Milwaukee Brewers ", 
"Seattle Mariners ", "Brooklyn Dodgers ", "St. Louis Cardinals ", 
"Washington Nationals ", "Miami Marlins ", "Cincinatti Reds ", 
"New York Mets ", "Atlanta Braves ", "Tampa Bay Rays ", "Houston Astros ", 
"Milwaukee Brewers ", "Philadelphia Phillies ", "Baltimore Orioles ", 
"Montreal Expos ", "Seattle Mariners ", "Brooklyn Dodgers ", 
"Washington Nationals ", "St. Louis Cardinals ", "Atlanta Braves ", 
"Cincinatti Reds ", "New York Mets ", "Houston Astros ", "Miami Marlins ", 
"Philadelphia Phillies ", "Tampa Bay Rays ", "Milwaukee Brewers ", 
"Baltimore Orioles ", "Montreal Expos ", "Seattle Mariners ", 
"Brooklyn Dodgers ", "St. Louis Cardinals ", "Washington Nationals ", 
"Philadelphia Phillies ", "Miami Marlins ", "Atlanta Braves ", 
"New York Mets ", "Houston Astros ", "Milwaukee Brewers ", 
"Cincinatti Reds ", "Tampa Bay Rays ", "Montreal Expos ", 
"Baltimore Orioles ", "Seattle Mariners ", "Brooklyn Dodgers ", 
"New York Mets ", "St. Louis Cardinals ", "Washington Nationals ", 
"Philadelphia Phillies ", "Miami Marlins ", "Houston Astros ", 
"Atlanta Braves ", "Milwaukee Brewers ", "Cincinatti Reds ", 
"Tampa Bay Rays ", "Montreal Expos ", "Baltimore Orioles ", 
"Seattle Mariners ", "Brooklyn Dodgers ", "St. Louis Cardinals ", 
"Washington Nationals ", "Houston Astros ", "New York Mets ", 
"Philadelphia Phillies ", "Milwaukee Brewers ", "Atlanta Braves ", 
"Miami Marlins ", "Cincinatti Reds ", "Tampa Bay Rays ", "Baltimore Orioles ", 
"Montreal Expos ", "Seattle Mariners ", "Brooklyn Dodgers "
), W = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 9, 8, 
7, 6, 6, 5, 6, 5, 4, 3, 2, 2, 2, 17, 17, 16, 14, 14, 14, 12, 
11, 13, 7, 7, 6, 3, 3, 25, 24, 22, 21, 20, 20, 18, 19, 16, 14, 
12, 9, 8, 5, 33, 32, 27, 27, 25, 26, 25, 23, 21, 21, 16, 15, 
11, 7, 37, 37, 35, 34, 33, 32, 32, 29, 29, 27, 21, 19, 17, 7, 
44, 43, 43, 40, 38, 40, 37, 37, 35, 32, 25, 23, 20, 7, 52, 50, 
50, 48, 48, 43, 42, 40, 41, 38, 34, 28, 25, 8), L = c(0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 3, 4, 6, 5, 6, 5, 6, 
7, 8, 9, 10, 5, 5, 7, 7, 8, 9, 9, 9, 11, 14, 15, 15, 19, 21, 
8, 9, 11, 13, 13, 13, 14, 16, 17, 19, 21, 22, 26, 31, 11, 12, 
16, 19, 18, 19, 20, 22, 21, 22, 28, 28, 33, 40, 18, 18, 22, 22, 
22, 22, 25, 25, 28, 27, 34, 36, 38, 52, 22, 22, 22, 28, 27, 29, 
28, 28, 33, 31, 42, 42, 46, 64, 25, 27, 31, 30, 32, 33, 34, 37, 
39, 37, 43, 51, 53, 75), T = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 1, 2, 2, 2, 0, 2, 0, 2, 2, 2, 2, 1, 0, 2, 2, 1, 
3, 2, 1, 3, 4, 0, 3, 2, 3, 2, 0, 3, 3, 3, 2, 3, 3, 4, 1, 3, 3, 
3, 5, 2, 0, 4, 4, 5, 2, 5, 3, 3, 3, 6, 5, 4, 5, 4, 1, 5, 5, 3, 
4, 5, 6, 3, 6, 3, 6, 5, 5, 5, 1, 6, 7, 7, 4, 7, 3, 7, 7, 4, 9, 
5, 7, 6, 1, 7, 7, 3, 6, 4, 8, 8, 7, 4, 9, 7, 5, 6, 1), `W%` = c(0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.833, 0.792, 0.75, 0.667, 
0.583, 0.5, 0.5, 0.5, 0.5, 0.417, 0.333, 0.25, 0.208, 0.167, 
0.75, 0.75, 0.688, 0.646, 0.625, 0.604, 0.562, 0.542, 0.542, 
0.354, 0.333, 0.312, 0.167, 0.125, 0.736, 0.708, 0.653, 0.611, 
0.597, 0.597, 0.556, 0.542, 0.486, 0.431, 0.375, 0.319, 0.25, 
0.139, 0.729, 0.708, 0.615, 0.583, 0.573, 0.573, 0.552, 0.51, 
0.5, 0.49, 0.375, 0.365, 0.271, 0.156, 0.658, 0.658, 0.608, 0.6, 
0.592, 0.583, 0.558, 0.533, 0.508, 0.5, 0.392, 0.358, 0.325, 
0.125, 0.653, 0.646, 0.646, 0.583, 0.576, 0.576, 0.562, 0.562, 
0.514, 0.507, 0.382, 0.368, 0.319, 0.104, 0.661, 0.637, 0.613, 
0.607, 0.595, 0.56, 0.548, 0.518, 0.512, 0.506, 0.446, 0.363, 
0.333, 0.101), `Div Rec` = c("0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0-0-0", "0-0-0", "37470", 
"0-0-0", "0-0-0", "36683", "0-0-0", "36683", "0-0-0", "0-0-0", 
"0-0-0", "37295", "0-0-0", "0-0-0", "17-5-2", "0-0-0", "36683", 
"0-0-0", "36712", "36653", "0-0-0", "37295", "36594", "0-0-0", 
"36683", "0-0-0", "0-0-0", "0-0-0", "37106", "36801", "36653", 
"37207", "20-13-3", "13-10-1", "37512", "36594", "0-0-0", "36566", 
"36683", "0-0-0", "36653", "0-0-0", "19-4-1", "37106", "13-10-1", 
"37207", "25-18-5", "37541", "36754", "36843", "37512", "37381", 
"36683", "0-0-0", "37482", "36931", "13-9-2", "19-4-1", "23-13-0", 
"17-18-1", "13-10-1", "25-18-5", "37541", "37381", "13-21-2", 
"15-19-2", "36683", "36683", "14-19-3", "36943", "25-18-5", "13-9-2", 
"25-8-3", "28-19-1", "17-18-1", "18-16-2", "13-10-1", "13-8-3", 
"19-26-3", "15-19-2", "36813", "37541", "17-27-4", "36943", "22-12-2", 
"25-8-3", "18-16-2", "25-18-5", "28-19-1", "13-8-3", "13-10-1", 
"17-18-1", "19-26-3", "15-19-2", "21-13-2", "13-23-0", "17-27-4", 
"3-32-1"), GB = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0.5, 1, 2, 3, 4, 4, 4, 4, 5, 6, 7, 7.5, 8, 0, 0, 1.5, 2.5, 3, 
3.5, 4.5, 5, 5, 9.5, 10, 10.5, 14, 15, 0, 1, 3, 4.5, 5, 5, 6.5, 
7, 9, 11, 13, 15, 17.5, 21.5, 0, 1, 5.5, 7, 7.5, 7.5, 8.5, 10.5, 
11, 11.5, 17, 17.5, 22, 27.5, 0, 0, 3, 3.5, 4, 4.5, 6, 7.5, 9, 
9.5, 16, 18, 20, 32, 0, 0.5, 0.5, 5, 5.5, 5.5, 6.5, 6.5, 10, 
10.5, 19.5, 20.5, 24, 39.5, 0, 2, 4, 4.5, 5.5, 8.5, 9.5, 12, 
12.5, 13, 18, 25, 27.5, 47), PF = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 10, 9.5, 9, 8, 7, 6, 6, 6, 6, 5, 4, 3, 2.5, 2, 
18, 18, 16.5, 15.5, 15, 14.5, 13.5, 13, 13, 8.5, 8, 7.5, 4, 3, 
26.5, 25.5, 23.5, 22, 21.5, 21.5, 20, 19.5, 17.5, 15.5, 13.5, 
11.5, 9, 5, 35, 34, 29.5, 28, 27.5, 27.5, 26.5, 24.5, 24, 23.5, 
18, 17.5, 13, 7.5, 39.5, 39.5, 36.5, 36, 35.5, 35, 33.5, 32, 
30.5, 30, 23.5, 21.5, 19.5, 7.5, 47, 46.5, 46.5, 42, 41.5, 41.5, 
40.5, 40.5, 37, 36.5, 27.5, 26.5, 23, 7.5, 55.5, 53.5, 51.5, 
51, 50, 47, 46, 43.5, 43, 42.5, 37.5, 30.5, 28, 8.5), PA = c(0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2.5, 3, 4, 5, 6, 6, 
6, 6, 7, 8, 9, 9.5, 10, 6, 6, 7.5, 8.5, 9, 9.5, 10.5, 11, 11, 
15.5, 16, 16.5, 20, 21, 9.5, 10.5, 12.5, 14, 14.5, 14.5, 16, 
16.5, 18.5, 20.5, 22.5, 24.5, 27, 31, 13, 14, 18.5, 20, 20.5, 
20.5, 21.5, 23.5, 24, 24.5, 30, 30.5, 35, 40.5, 20.5, 20.5, 23.5, 
24, 24.5, 25, 26.5, 28, 29.5, 30, 36.5, 38.5, 40.5, 52.5, 25, 
25.5, 25.5, 30, 30.5, 30.5, 31.5, 31.5, 35, 35.5, 44.5, 45.5, 
49, 64.5, 28.5, 30.5, 32.5, 33, 34, 37, 38, 40.5, 41, 41.5, 46.5, 
53.5, 56, 75.5), Period = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 
3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 
6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7), Place = c(1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 
9, 10, 11, 12, 13, 14, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 
13, 14, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 1, 2, 
3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 1, 2, 3, 4, 5, 6, 7, 
8, 9, 10, 11, 12, 13, 14, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
12, 13, 14, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14), Year = c(1900, 
1900, 1900, 1900, 1900, 1900, 1900, 1900, 1900, 1900, 1900, 1900, 
1900, 1900, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 
1901, 1901, 1901, 1901, 1901, 1902, 1902, 1902, 1902, 1902, 1902, 
1902, 1902, 1902, 1902, 1902, 1902, 1902, 1902, 1903, 1903, 1903, 
1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 
1904, 1904, 1904, 1904, 1904, 1904, 1904, 1904, 1904, 1904, 1904, 
1904, 1904, 1904, 1905, 1905, 1905, 1905, 1905, 1905, 1905, 1905, 
1905, 1905, 1905, 1905, 1905, 1905, 1906, 1906, 1906, 1906, 1906, 
1906, 1906, 1906, 1906, 1906, 1906, 1906, 1906, 1906, 1907, 1907, 
1907, 1907, 1907, 1907, 1907, 1907, 1907, 1907, 1907, 1907, 1907, 
1907)), row.names = c(NA, -112L), class = c("tbl_df", "tbl", 
"data.frame"))

我认为分解它会起作用，也会解析它，但两者都不起作用：

#first thought
myData$Team <- factor(myData$Team)
summary(myData)
#second thought
myData$Team <- eval(parse(text = myData$Team))

我是不是错过了一些明显的东西？我对如何解决这个问题感到茫然。任何帮助都将不胜感激

答案

删除名称周围的空白：

myData$Team答案

删除名称周围的空白：

---

myData$Team看起来您需要进行一些数据清理：

data %>%  group_by(Team) %>% 
summarise(count = n())

`summarise()` ungrouping output (override with `.groups` argument)
# A tibble: 28 x 2
   Team                 count
   <chr>                <int>
 1 "Atlanta Braves"         2
 2 "Atlanta Braves "        6
 3 "Baltimore Orioles"      2
 4 "Baltimore Orioles "     6
 5 "Brooklyn Dodgers"       2
 6 "Brooklyn Dodgers "      6
 7 "Cincinatti Reds"        2
 8 "Cincinatti Reds "       6
 9 "Houston Astros"         2
10 "Houston Astros "        6
# ... with 18 more rows

使用stringr：

data <-  data %>% 
   mutate(Team = str_trim(Team, side = c("both")))

---

看起来您需要进行一些数据清理：

data %>%  group_by(Team) %>% 
summarise(count = n())

`summarise()` ungrouping output (override with `.groups` argument)
# A tibble: 28 x 2
   Team                 count
   <chr>                <int>
 1 "Atlanta Braves"         2
 2 "Atlanta Braves "        6
 3 "Baltimore Orioles"      2
 4 "Baltimore Orioles "     6
 5 "Brooklyn Dodgers"       2
 6 "Brooklyn Dodgers "      6
 7 "Cincinatti Reds"        2
 8 "Cincinatti Reds "       6
 9 "Houston Astros"         2
10 "Houston Astros "        6
# ... with 18 more rows

使用stringr：

data <-  data %>% 
   mutate(Team = str_trim(Team, side = c("both")))

---

建议：在str_trim中，side的默认值是both，所以您可以说str_trimteam感谢您的帮助@slamballais&mlcyoNo担心，问题几乎总是数据清理！建议：在str_trim中，side的默认值是both，所以您可以说str_trimteam感谢您的帮助@slamballais&mlcyoNo担心，问题几乎总是数据清理！谢谢之所以出现空白，是因为我删除了前两年连接到团队的超链接，然后变得懒惰，在接下来的几年里不删除链接，认为这没什么大不了的。现在我知道了！谢谢之所以出现空白，是因为我删除了前两年连接到团队的超链接，然后变得懒惰，在接下来的几年里不删除链接，认为这没什么大不了的。现在我知道了！