Я хочу використовувати функцію apply у фреймі даних, але застосувати функцію лише до останніх 5 стовпців.
B<- by(wifi,(wifi$Room),FUN=function(y){apply(y, 2, A)})
Це стосується A для всіх стовпців y
B<- by(wifi,(wifi$Room),FUN=function(y){apply(y[4:9], 2, A)})
Це стосується A лише для стовпців 4-9 y, але загальна віддача B позбавляє перших 3 стовпців ... Я все ще хочу їх, я просто не хочу, щоб до них застосовували A.
wifi[,1:3]+B
також робить не те, що я очікував / хотів.
cbind(y[1:3], ...)до результату, який отримуєте.
Відповіді:
Використання прикладу data.frame та прикладної функції (лише +1 до всіх значень)
A <- function(x) x + 1
wifi <- data.frame(replicate(9,1:4))
wifi
# X1 X2 X3 X4 X5 X6 X7 X8 X9
#1 1 1 1 1 1 1 1 1 1
#2 2 2 2 2 2 2 2 2 2
#3 3 3 3 3 3 3 3 3 3
#4 4 4 4 4 4 4 4 4 4
data.frame(wifi[1:3], apply(wifi[4:9],2, A) )
#or
cbind(wifi[1:3], apply(wifi[4:9],2, A) )
# X1 X2 X3 X4 X5 X6 X7 X8 X9
#1 1 1 1 2 2 2 2 2 2
#2 2 2 2 3 3 3 3 3 3
#3 3 3 3 4 4 4 4 4 4
#4 4 4 4 5 5 5 5 5 5
Або навіть:
data.frame(wifi[1:3], lapply(wifi[4:9], A) )
#or
cbind(wifi[1:3], lapply(wifi[4:9], A) )
# X1 X2 X3 X4 X5 X6 X7 X8 X9
#1 1 1 1 2 2 2 2 2 2
#2 2 2 2 3 3 3 3 3 3
#3 3 3 3 4 4 4 4 4 4
#4 4 4 4 5 5 5 5 5 5
$індексації певного стовпця за іменем, а не [ : ]для індексування за номером стовпця? Я спробував додати імена col: colnames(wifi) = c("a", "b", "c", "d", "e", "f", "g", "h" ,"i")але жодної спроби використовувати lapply (wifi $ e, 2, X) не відбулося.
wifi[c("a","b","c")]для індексації кількох стовпців за назвою.
apply(wifi[4:9],2, A), wifi[4:9]є. data.frameІ applyможе використовуватися лише для масиву або матриці. Чому ваша відповідь дієва?
lapplyє, мабуть, кращим вибором, ніж applyтут, оскільки застосувати спочатку примушує ваш data.frame до масиву, що означає, що всі стовпці повинні мати однаковий тип. Залежно від вашого контексту, це може мати непередбачені наслідки.
Шаблон:
df[cols] <- lapply(df[cols], FUN)
Вектор "cols" може бути іменами змінних або індексами. Я вважаю за краще використовувати імена, коли це можливо (це надійно для переупорядкування стовпців). Отже, у вашому випадку це може бути:
wifi[4:9] <- lapply(wifi[4:9], A)
Приклад використання назв стовпців:
wifi <- data.frame(A=1:4, B=runif(4), C=5:8)
wifi[c("B", "C")] <- lapply(wifi[c("B", "C")], function(x) -1 * x)
cols <- c("var1", "var2")
wifi[4:9] %<>% map_dbl(A)
Як вже згадувалося, вам просто потрібна стандартна applyфункція R, застосована до стовпців ( MARGIN=2):
wifi[,4:9] <- apply(wifi[,4:9], MARGIN=2, FUN=A)
Або, коротко:
wifi[,4:9] <- apply(wifi[,4:9], 2, A)
Це оновлює стовпці 4: 9 на місці за допомогою A()функції. Тепер припустимо, що na.rmце аргумент A(), яким він, мабуть, і повинен бути. Ми можемо передати na.rm=Tвидалення значень NA з обчислення так:
wifi[,4:9] <- apply(wifi[,4:9], MARGIN=2, FUN=A, na.rm=T)
Те саме стосується будь-яких інших аргументів, які ви хочете передати своїй користувацькій функції.