Merging in r without writing multiple merge statements -

-

i have 1 data set base & there 7 other datasets 7 different years & 3 different regions .these datasets include amount,region & year common base data.

however, need merge 7 data sets 1 one base dataset.how achieve that?

base dataset:

company_region  raised_amount_usd   year  sf bay area    1000050 2011  sf bay area    2520000 2011  sf bay area    15000   2010  singapore  615000  2011

for year 2007:

 raised_amount_usd  z   e   year company_region  1.00e+06    5   0          2007  singapore 8.00e+06    6   1          2007  singapore

50000 3 0 2007 singapore 35000 3 0 2007 singapore

& have data other years 2008-2012.i need columns z & e in base data set.instead of writing 7 merge statements how can done through function?

would great if can out.thanks in advance!!

if want keep columns z , e, bind_rows() dplyr package seems answer (see here combine 2 data frames rows (rbind) when have different sets of columns)

# create example <- c(rep("sf bay area",3),"singapore") b <- c(1000050,2520000,15000,615000) c <- c(2011,2010,2011,2011) base <- cbind.data.frame(a,b,c,stringsasfactors =f) colnames(base) <- c("company_region","raised_amount_usd","year")   <- c(rep("germany",4)) b <- c(100055,2524400,150020,68880) c <- c(2007,2007,2007,2007) e <- c(1,1,1,1) z <- c(1,1,1,1) data_germany <- cbind.data.frame(a,b,c,e,z,stringsasfactors =f) colnames(data_germany) <- c("company_region","raised_amount_usd","year","e","z")  <- c(rep("italy",4)) b <- c(100055,2524400,150020,68880) c <- c(2007,2007,2007,2007) e <- c(1,1,1,1) z <- c(1,1,1,1) data_italy <- cbind.data.frame(a,b,c,e,z,stringsasfactors =f) colnames(data_italy) <- c("company_region","raised_amount_usd","year","e","z")  # bin german , italian data @ once dplyr library(dplyr) base %>%    bind_rows(data_germany) %>%    bind_rows(data_italy) -> base

if don't want keep z , e, can this:

# function extent base dataframe # base_df = base dataframe extent # add_df = dataframe should added base dataframe fun_extent_data <- function(base_df,add_df) {    library(dplyr)   base_df <- base_df   add_df <- add_df    # choose necessary columns   add_df %>%     select(company_region,raised_amount_usd,year) -> add_df_light    # bind data base dataframe   rbind.data.frame(base_df,add_df_light,stringsasfactors = false) -> base_df    return(base_df) }  # use function  fun_extent_data(base,data_germany) -> base  # use function german , italian data @ once dplyr library(dplyr) base %>%   fun_extent_data(.,data_germany) %>%   fun_extent_data(.,data_italy) -> base

Comments

Post a Comment

Popular posts from this blog

Spring Boot + JPA + Hibernate: Unable to locate persister -

-
i trying work entity inside request method of spring boot application. entity in project , pom.xml has dependencies it. why error message?: org.hibernate.unknownentitytypeexception: unable locate persister: com.ric.bill.model.bs.par package com.ric.web; import java.util.concurrent.atomic.atomiclong; import javax.persistence.entitymanager; import javax.persistence.persistencecontext; import net.sf.ehcache.cachemanager; import net.sf.ehcache.management.cache; import net.sf.ehcache.management.cachestatistics; import org.hibernate.stat.statistics; import org.springframework.beans.factory.annotation.autowired; import org.springframework.boot.autoconfigure.domain.entityscan; import org.springframework.cache.annotation.enablecaching; import org.springframework.transaction.annotation.enabletransactionmanagement; import org.springframework.transaction.annotation.propagation; import org.springframework.transaction.annotation.transactional; import org.springframework.web.bind.annotati
Read more

go - Golang: panic: runtime error: invalid memory address or nil pointer dereference using bufio.Scanner -

-
i implementing go program uses bufio.scanner , bufio.writer have packaged code follows package main import ( "fmt" "player/command" "strings" ) func main() { //enter code here. read input stdin. print output stdout commands.scanner.scan() { //scan new line , send comand variable check command exist or not input := strings.split(strings.trim(commands.scanner.text(), " "), " ") command := input[0] if command == "" { fmt.printf("$ %s:", commands.pwd) continue } if !commands.commands[command] { commands.throwerror("cannot recognize input.") } else { commands.execute(command, input[1:], nil) } fmt.printf("$ %s:", commands.pwd) } } i using init.go file in main package follows package main import ( "flag" "player/sourc
Read more

c - double free or corruption (fasttop) -

-
this code reads null terminated string file (file containing null terminated strings & should provide index wanted string). error: *** error in `./main': double free or corruption (fasttop): 0x090a4a80 *** aborted code: char *tmp_realloc=null; char *sstring=null; int i=1; /*set file pointer point string*/ fseek(fh,index,seek_set); sstring=(char*)malloc(sizeof(char)); if(sstring == null) return null; tmp_realloc=sstring; while( (*(sstring+i-1)=(char)fgetc((file*)fh)) != 0x0 ) { /*reallocate more memory*/ tmp_realloc=(char*)realloc((char*)sstring,++i); /*if not same address copy old new & set old point new*/ if(tmp_realloc != sstring){ strcpy((char*)tmp_realloc,(char*)sstring); free(sstring); sstring=tmp_realloc; } } could tell me pointer causing issue (& reason) ? remove part /*if not same address copy old new & set old point new*/ if(tmp_realloc != sstring){ strc
Read more