Programim dhe zhvillim, javascript, python, php, html

Funksioni Sum Dplyr brenda një funksioni klasik R (n() funksionon por jo shuma!)

Kam lexuar të gjitha temat e disponueshme të SOF-it për këtë temë. Nuk mund ta rregulloj problemin tim. Unë dua të ndërtoj një funksion me emrin e të dhënave, emrin e ndryshores dhe emrin e grupit si parametra. Unë dua të përdor funksionin dplyr summarize, sum dhe n(). Duket se është gjithçka mirë kur vendos vetëm n(). Por gjithçka dështon kur dua të llogaris shumën brenda secilit grup.

Këtu është funksioni im:

library(MASS)
library(ISLR)

dplyrfun <- function(dataframe, variable1,variable2){
  dataframe %>% 
    group_by_(variable1) %>% 
    summarise_(
      freq = ~n(),
      freq_weighted = ~sum(variable2)
    )
}

Pra, kur ekzekutoj këtë komandë:

dplyrfun(Boston, ~rad,~age)

Mora këtë mesazh gabimi:

Error in sum(~c(65.2, 9.9, 18.8, 32, 19.1, 24.8, 20.8, 31.9, 31.5, 28.4,  : 
  invalid 'type' (language) of argument
r function dplyr
14.08.2015

  • Sepse sum(~age) nuk funksionon. Ju duhet të përdorni interpolate() ose të ngjashme. Shih vinjetën e NSE 14.08.2015

Përgjigjet:


1

Siç thekson hadley, kjo është e gjitha në vignette dplyr NSE. Duke përdorur lazyeval::interp():

library(MASS)
library(ISLR)
library(dplyr)
library(lazyeval)

dplyrfun <- function(dataframe, variable1, variable2){
  dataframe %>% 
    group_by_(interp(~ var, var = as.name(variable1))) %>% 
    summarise_(
      freq = ~n(),
      freq_weighted = interp(~ sum(var), var = as.name(variable2))
    )
}

Por do t'ju duhet të vendosni emrat e kolonave në thonjëza:

dplyrfun(Boston, "rad", "age")
Source: local data frame [9 x 3]

  rad freq freq_weighted
1   1   20         900.5
2   2   24        1554.5
3   3   38        1873.8
4   4  110        6692.6
5   5  115        7960.7
6   6   26        1563.7
7   7   17         682.4
8   8   24        1616.4
9  24  132       11854.3

Dhe vetëm për të kontrolluar:

identical(
  dplyrfun(Boston, "rad", "age"),
  Boston %>%
    group_by_(~ rad) %>%
    summarise_(
      freq = ~n(),
      freq_weighted = ~ sum(age)
    )
)

[1] TRUE
14.08.2015
  • E mrekullueshme!! Ti ma bëre ditën, me të vërtetë e kam fjalën!! Unë kam luftuar kaq gjatë me këtë mut! Po, e kuptova se qëndron në parimet e NSE, por nuk e kuptova! 15.08.2015
    • Materiale të reja
    Masterclass Coroutines: Kapitulli-3: Anulimi i korutinave dhe trajtimi i përjashtimeve.
    Mirë se vini në udhëzuesin gjithëpërfshirës mbi Kotlin Coroutines! Në këtë seri artikujsh, unë do t'ju çoj në një udhëtim magjepsës, duke filluar nga bazat dhe gradualisht duke u thelluar në..
    Faketojeni derisa ta arrini me të dhënat false
    A e gjeni ndonjëherë veten duke ndërtuar një aplikacion të ri dhe keni nevojë për të dhëna testimi që duken dhe duken më realiste ose një grup i madh të dhënash për performancën e ngarkesës...
    Si të përdorni kërkesën API në Python
    Kërkesë API në GitHub për të marrë depot e përdoruesve duke përdorur Python. Në këtë artikull, unë shpjegoj procesin hap pas hapi për të trajtuar një kërkesë API për të marrë të dhëna nga..
    Një udhëzues hap pas hapi për të zotëruar React
    Në këtë artikull, do të mësoni se si të krijoni aplikacionin React, do të mësoni se si funksionon React dhe konceptet thelbësore që duhet të dini për të ndërtuar aplikacione React. Learning..
    AI dhe Psikologjia — Pjesa 2
    Në pjesën 2 të serisë sonë të AI dhe Psikologji ne diskutojmë se si makineritë mbledhin dhe përpunojnë të dhëna për të mësuar emocione dhe ndjenja të ndryshme në mendjen e njeriut, duke ndihmuar..
    Esencialet e punës ditore të kodit tim VS
    Shtesat e mia të preferuara - Git Graph 💹 Kjo shtesë është vërtet e mahnitshme, e përdor përpara se të filloj të punoj për të kontrolluar dy herë ndryshimet dhe degët më të fundit, mund të..
    Pse Python? Zbulimi i fuqisë së gjithanshme të një gjiganti programues
    Në peizazhin gjithnjë në zhvillim të gjuhëve të programimit, Python është shfaqur si një forcë dominuese. Rritja e tij meteorike nuk është rastësi. Joshja e Python qëndron në thjeshtësinë,..