Mehrere Spalten bedingt teilen

Question

Ich möchte meinen Versorgungsdatenrahmen durch meinen Populationsdatenrahmen teilen, um einen Datenrahmen pro Kopf zu erstellen. Jeder Datenrahmen hat eine Artikelspalte, eine Länderspalte und mehrere Jahresspalten (eine Spalte für die Daten jedes Jahres). Ich muss das Land abgleichen und dann jeden Eintrag im Versorgungsdatenfeld durch den entsprechenden Wert im Bevölkerungsdatenrahmen dividieren.

Irgendwelche Vorschläge? Ich konnte mir nichts einfallen lassen.

Answer 1

Vielleicht kann dies helfen, n die richtige Richtung:

# sample data 
population = data.frame(country = c("A","B"),population = c(100,200)) 
data = data.frame(country=c("A","B"), y2016 = c(1000,2000), y2017=c(2000,3000)) 

library(dplyr) 
# join the population and the data dataframe based on the 'country' column. 
data =data %>% left_join(population) 

# divide all columns except the columns 'country' and 'population' by the population column. 
data[, colnames(data)[!colnames(data) %in% c("country","population")]] = data[, colnames(data)[!colnames(data) %in% c("country","population")]]/data$population 

Eingang:

> population 
    country population 
1  A  100 
2  B  200 
> data 
    country y2016 y2017 
1  A 1000 2000 
2  B 2000 3000 

Ausgang:

country y2016 y2017 population 
1  A 10 20  100 
2  B 10 15  200 

hoffe, das hilft!

Answer 2

Wir data.table verwenden

library(data.table) 
i1 <- grep("year", names(df1)) 
i2 <- paste0("i.", i1) 
setDT(df1)[df2, (i1) := Map(`/`, mget(i1), mget(i2)), on = .(country)] 
df1