Question

看起来选择并不是从数据集中删除未选中的列...非常奇怪。这是一个简单的例子：

library(nycflights13)
library(dplyr)

dly <- flights %>% 
  group_by( year, month, day) %>%
  summarise(
    arr_mean = mean(arr_delay, na.rm=TRUE),
    dep_mean = mean(dep_delay, na.rm=TRUE)
  ) %>% mutate(
    dt = as.Date(ISOdate( year, month, day ) )
  ) 

> glimpse( dly, 50 )
Observations: 365
Variables: 6
$ year     (int) 2013, 2013, 2013, 2013, 2013...
$ month    (int) 1, 1, 1, 1, 1, 1, 1, 1, 1, 1...
$ day      (int) 1, 2, 3, 4, 5, 6, 7, 8, 9, 1...
$ arr_mean (dbl) 12.6510229, 12.6928879, 5.73...
$ dep_mean (dbl) 11.548926, 13.858824, 10.987...
$ dt       (date) 2013-01-01, 2013-01-02, 201...

所以...简单..白天得到一个平均值，并添加一个R日期。（是的，我知道数据集中有time_hour，但这应该仍然有用）。现在我想摆脱年，月和周年日期字段（为ggplot收集（））...但是选择不会将它们删除：

dly %>% select( dt, arr_mean, dep_mean) %>% glimpse(50)
Observations: 365
Variables: 5
$ year     (int) 2013, 2013, 2013, 2013, 2013...
$ month    (int) 1, 1, 1, 1, 1, 1, 1, 1, 1, 1...
$ dt       (date) 2013-01-01, 2013-01-02, 201...
$ arr_mean (dbl) 12.6510229, 12.6928879, 5.73...
$ dep_mean (dbl) 11.548926, 13.858824, 10.987...

一天过去了，但是年和月仍然存在。为什么呢？

即使我在他们身上嬉戏，他们仍然在那里：

dly$year <- NULL
dly$month <- NULL
dly$day <- NULL

dly %>% glimpse(50)

Observations: 365
Variables: 3
$ arr_mean (dbl) 12.6510229, 12.6928879, 5.73...
$ dep_mean (dbl) 11.548926, 13.858824, 10.987...
$ dt       (date) 2013-01-01, 2013-01-02, 201...

好像他们已经走了，但他们真的没有了：

dly %>% select( dep_mean) %>% glimpse(50)
Error: invalid column index : NA for variable: year = year

我确定我错过了一些明显的东西，但我不确定是什么。

如果我没有group_by / mutate数据，它可以正常工作。

提前感谢您的帮助

Answer 1

如果您运行dly%>%head()，您会在控制台中看到dly仍然分组：

Groups: year, month [1]

在选择之前插入%>% ungroup()%>%应该“免费”dly

R＆amp; dplyr选择在各种变换后不删除列？

1 个答案: