Переупорядочить фрейм данных, используя dcast, используя пустышку
Я хотел бы использовать функцию dcast (пакет reshape2) для возврата измененного фрейма данных, но не работает. В моем примере:
#Data set
X<-c(804519.4,804519.6,804519.6,804519.4,804519.4,804519.4,804519.6,804519.6,804519.4,804519.4)
Y<-c(7673833,7673833,7673833,7673833,7673833,7673833,7673833,7673833,7673833,7673833)
band<-c("band1","band1","band1","band1","band1","band2","band2","band2","band2","band2")# My original data set are 31 bands
reflec<-c(9.608848,10.504454,8.648237,9.935091,11.282750,9.608848,10.504454,8.648237,9.935091,11.282750)
dummy<-1:10
RES3<-data.frame(X,Y,band,reflec,dummy)
RES3
X Y band reflec dummy
1 804519.4 7673833 band1 9.608848 1
2 804519.6 7673833 band1 10.504454 2
3 804519.6 7673833 band1 8.648237 3
4 804519.4 7673833 band1 9.935091 4
5 804519.4 7673833 band1 11.282750 5
6 804519.4 7673833 band2 9.608848 6
7 804519.6 7673833 band2 10.504454 7
8 804519.6 7673833 band2 8.648237 8
9 804519.4 7673833 band2 9.935091 9
10 804519.4 7673833 band2 11.282750 10
RES3<-as.data.frame(RES3)
colnames(RES3)<-c("X","Y","band","reflec","dummy")
dcast(RES3, X + Y + dummy ~ band,
fun.aggregate = length,
value.var="reflec")
Не работает, мой вывод:
X Y dummy band1 band2
1 804519.4 7673833 1 1 0
2 804519.4 7673833 4 1 0
3 804519.4 7673833 5 1 0
4 804519.4 7673833 6 0 1
5 804519.4 7673833 9 0 1
6 804519.4 7673833 10 0 1
7 804519.6 7673833 2 1 0
8 804519.6 7673833 3 1 0
9 804519.6 7673833 7 0 1
10 804519.6 7673833 8 0 1
Я ожидал:
X Y band1 band2
1 804519.4 7673833 9.608848 9.608848
2 804519.6 7673833 10.504454 10.504454
3 804519.6 7673833 8.648237 8.648237
4 804519.4 7673833 9.935091 9.935091
5 804519.4 7673833 11.282750 11.282750
Любой участник может помочь мне, потому что мой исходный набор данных состоит из 31 полос в качестве уровней, и я хотел бы преобразовать в столбцы? Спасибо!
3 ответа
Как я уже говорил, reshape2 устарела в пользу tidyr в пределах tidyverse пакеты. По моему мнению (и по мнению авторов пакетов), tidyr"s spread а также gather немного яснее, чем reshape2"s cast а также melt- нет формульной записи, более понятные способы задания значений. (Некоторый контекст для этого здесь).
Кроме того, как я уже говорил, у вас есть пара дополнительных строк -data.frame добавит имена столбцов в соответствии с именами идущих в них векторов.
Я обновил этот ответ, чтобы он соответствовал новым опубликованным вами данным. Мое оригинальное решение сработало для ваших исходных данных, но нужно еще несколько шагов для ваших новых данных, с которыми я делаю dplyr функции.
Я не совсем понимаю dummy столбец в этой точке, так как он не находится в ожидаемом результате. Я бросаю это с dplyr::select(-dummy), Одна хитрая вещь с tidyr::spread в том, что вам нужен какой-то способ уникальной маркировки строк - это раздражает, но также предотвращает ошибки при изменении формы данных. Так что я группирую по bandЗатем добавьте номера строк следующим образом:
library(tidyr)
library(dplyr)
res3 <- data.frame(X, Y, band, reflec, dummy)
res3 %>%
select(-dummy) %>%
group_by(band) %>%
mutate(row = row_number())
#> # A tibble: 10 x 5
#> # Groups: band [2]
#> X Y band reflec row
#> <dbl> <dbl> <fct> <dbl> <int>
#> 1 804519. 7673833 band1 9.61 1
#> 2 804520. 7673833 band1 10.5 2
#> 3 804520. 7673833 band1 8.65 3
#> 4 804519. 7673833 band1 9.94 4
#> 5 804519. 7673833 band1 11.3 5
#> 6 804519. 7673833 band2 9.61 1
#> 7 804520. 7673833 band2 10.5 2
#> 8 804520. 7673833 band2 8.65 3
#> 9 804519. 7673833 band2 9.94 4
#> 10 804519. 7673833 band2 11.3 5
Таким образом, строка 1 будет иметь значение полосы 1 и значение полосы 2 и так далее. Тогда я звоню spread с полосой в качестве ключа, чтобы стать столбцами, и отражающими значениями, чтобы заполнить эти столбцы, и, наконец, отбросить столбец с номером строки.
res3 %>%
select(-dummy) %>%
group_by(band) %>%
mutate(row = row_number()) %>%
spread(key = band, value = reflec) %>%
select(-row)
#> # A tibble: 5 x 4
#> X Y band1 band2
#> <dbl> <dbl> <dbl> <dbl>
#> 1 804519. 7673833 9.61 9.61
#> 2 804519. 7673833 9.94 9.94
#> 3 804519. 7673833 11.3 11.3
#> 4 804520. 7673833 10.5 10.5
#> 5 804520. 7673833 8.65 8.65
Создано в 2019-01-28 пакетом представлением (v0.2.1)
value.var должна быть строка, которая определяет имя столбца. В соответствии с ?dcast
value.var - имя столбца, в котором хранятся значения
а также name столбца символьная строка
Указав его без кавычек, он ищет имя столбца из значений
dcast(RES3, X + Y + dummy ~ band,
fun.aggregate = length,
value.var="reflec")