Data( Row) manipulation in R

Question

I apologize, I posted this same question yesterday but phrased it very poorly. I have no idea how to go about approaching this problem. I have approximately 2000 rows of data, with an owner, percentage of credit to the owner, an employee, and a percentage of credit to the employee. I have provided an example row.

owner<- c("bob") percentage_owner<- .75 employee<- c("sydney") employee_percent<- .25

For each row of data, I am attempting to create a new row of data that places the owner's name into the employee column, and his percentage as the employees percentage, keeping all other columns the same in the new row, like so:

owner2<- c("bob", "bob") percentage_owner2<- c(.75, .75) employee2<- c("sydney", "bob") employee_percent2<- c(.25,.75) sample_data<-data.frame(owner, percentage_owner, employee, employee_percent) goal_data <- data.frame(owner = owner2, percentage_owner = percentage_owner2, employee = employee2, employee_percent = employee_percent2)

I want this to occur for all rows of the data, essentially doubling the dataset. How would I go about doing this? I don't have much experience using R for this sort of data manipulation. Any help is greatly appreciated!

Rui Barradas · Accepted Answer · 2020-07-02 17:19:39Z

The following function accepts a data.frame with the columns named as in the question and returns each row doubled in the special way the question asks for.

funDouble <- function(X){ f <- function(X){ owner <- rep(X[['owner']], 2) percentage_owner <- rep(X[['percentage_owner']], 2) employee <- c(X[['employee']], X[['owner']]) employee_percent <- c(X[['employee_percent']], X[['percentage_owner']]) data.frame(owner, percentage_owner, employee, employee_percent) } res <- lapply(row.names(X), function(i) f(X[i,, drop = FALSE])) res <- do.call(rbind, res) row.names(res) <- NULL res } owner<- "bob" percentage_owner <- 0.75 employee<- "sydney" employee_percent <- 0.25 df1 <- data.frame(owner, percentage_owner, employee, employee_percent) funDouble(df1) # owner percentage_owner employee employee_percent #1 bob 0.75 sydney 0.25 #2 bob 0.75 bob 0.75

Duck · Accepted Answer · 2020-07-02 17:19:11Z

Try this function made with base R:

#Function repeatfunc <- function(x,n) { #empty object Empty <- list() #Fill for(i in c(1:n)) { Empty[[i]] <- x } #Dataframe z <- do.call(rbind,Empty) return(z) }

Using it:

repeatfunc(sample_data,5) owner percentage_owner employee employee_percent 1 bob 0.75 sydney 0.25 2 bob 0.75 sydney 0.25 3 bob 0.75 sydney 0.25 4 bob 0.75 sydney 0.25 5 bob 0.75 sydney 0.25

You can save the results in a new dataframe if you wish.

Collectives™ on Stack Overflow

Data( Row) manipulation in R

2 Answers 2

Comments

Comments

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Related