आर लागू डेटाफ्रेम कॉलम पर लागू करें() फ़ंक्शन

Question

मैं डेटा फ़्रेम पर लागू फ़ंक्शन का उपयोग करना चाहता हूं, लेकिन केवल अंतिम 5 कॉलम पर फ़ंक्शन लागू करना चाहता हूं।

B<- by(wifi,(wifi$Room),FUN=function(y){apply(y, 2, A)}) 

यह y

B<- by(wifi,(wifi$Room),FUN=function(y){apply(y[4:9], 2, A)}) 

के सभी स्तंभों के लिए एक लागू होता है यह केवल स्तंभों y के 4-9 करने के लिए एक के लिए लागू होता है, लेकिन बी की कुल वापसी बंद स्ट्रिप्स पहले 3 कॉलम ... मैं अभी भी उनको चाहता हूं, मैं सिर्फ उन पर लागू नहीं करना चाहता हूं।

wifi[,1:3]+B 

जो भी मैं चाहता/चाहता हूं वह भी नहीं करता है।

Answer 1

एक उदाहरण 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 

Answer 2

lapply शायद apply की तुलना में एक बेहतर विकल्प यहाँ, लागू के रूप में है सबसे पहले आपके डेटा.फ्रेम को एक सरणी में जोड़ता है जिसका अर्थ है कि सभी कॉलमों में एक ही प्रकार होना चाहिए। आपके संदर्भ के आधार पर, इसमें अनपेक्षित परिणाम हो सकते हैं।

पैटर्न है:

df[cols] <- lapply(df[cols], FUN) 

'कॉलम' वेक्टर चर नाम या सूचकांकों हो सकता है। जब भी संभव हो मैं नामों का उपयोग करना पसंद करता हूं (यह कॉलम रीडरिंग के लिए मजबूत है)। तो आपके मामले में यह हो सकता है:

wifi[4:9] <- lapply(wifi[4:9], A) 

स्तंभ नाम का उपयोग करने का एक उदाहरण:

wifi <- data.frame(A=1:4, B=runif(4), C=5:9) 
wifi[c("B", "C")] <- lapply(wifi[c("B", "C")], function(x) -1 * x)