Advertisements I have the following simplified dataframe df (dput below): > df group value 1 A 1 2 A 4 3 B 2 4 B 3 5 C 2 6 C 1 I would like to apply a for-loop per group using lapply. So first I created a list for each group using split. Then… Read More For loop inside lapply
Advertisements I’m trying to gain a deeper understanding of loops vs. *apply functions in R. Here, I did an experiment where I compute the first 10,000 triangular numbers in 3 different ways. unwrapped: a simple for loop wrapped: I take the exact same loop from before, but wrap it in a function. vapply: Using vapply… Read More Why does wrapping this loop in a function speed it up by 8x?
Advertisements I’m realtively new to R and have been trying to find a working answer here for the last three hours, but just cannot seem to find a combination that works. I have a folder that contains 841 csv files, none of the files have column names. The format is the same for every file… Read More Import multiple CSV files, add same column headers and then cbind R
Advertisements I am trying to move a large list of files to a newly created folder, and remove the files from the original folder. I will use some data that comes with base R as an example to hopefully make this easy to reproduce. library(dplyr) DNase %>% write.csv("movethis_1.csv") mtcars %>% write.csv("movethis_2.csv") files_to_move <- list.files(pattern =… Read More Move a large list of files into a folder, and delete them from the original folder in R
Advertisements I am trying to replace values in a list word, on indexes specified by the list positions, by sampling values that exist in a third list called letters. Here’s an example of how my lists look like: word <- c("A","E","C","A","R","O","P") positions <- c(1,5,3,7) letters <- c("A","B","C","D","E","F") One important detail is that the value in… Read More Using lapply to replace values in a list from randomly sampled values from another list
Advertisements I have a matrix in R in the following form: x11 x12 x13 x21 x22 x23 X = x31 x32 x33 which I generate in R as: set.seed(123) X <- matrix(sample(15,9,T),3) colnames(X) <- paste0("X",1:3) > X X1 X2 X3 [1,] 15 14 2 [2,] 15 3 6 [3,] 3 10 11 and I want… Read More Apply function in matrix in R
Advertisements In my dataframe the three responses (yes, maybe, no) to a question are now printed as three separate variables (a binary outcome of each possible response). I want to combine the three binary responses to a question into one variable, showing which response was selected. The following piece of code does this: data$var1 <-… Read More Combining multiple columns into one using a function, but using colnames with ascending numbers in their name R
Advertisements I have this list L of tables ( I used df1 and df2 to produce the tables t1 and t2 but in my real case we have just tables to work on them ) : df1 = data.frame(male = c(0,1,0,0,1,1), female = c(0,0,0,1,1,0)) df2 = data.frame(adult = c(1,1,0,0), teenager = c(1,1,1,1) ) t1 =… Read More How to apply the function `flextable` on a list of tables?
Advertisements Looking to retain levels when generating multiple plots via lapply and filtered data: library(purrr) library(tidyverse) test <- data.frame(`1` = rpois(10,3),`2`=rpois(10,3), `3` = rpois(10,3)) ccf.func <- function(i,j){ dat <- ccf(test[i],test[j],plot=FALSE,type="correlation") ccf.dat <- data.frame(ccf=dat$acf,lag=dat$lag,first=i,second=j) return(ccf.dat) } dat <- map_dfr(1:3, function(i) map_dfr(1:3, function(j) ccf.func(i,j))) lapply(0:2, function(i) ggplot(dat |> filter(lag == i)) + geom_tile(aes(x=first,y=second,fill=ccf))) These all have differing… Read More Retain levels when generating multiple plots from dplyr filtered data
Advertisements I am trying to draw a 1 or 0 from a bernouli distribution for each row within a list when the value in the first column exceeds 1000. I believe my current code is drawing a distribution for each dataframe in the list as opposed to doing it for each row. Is there a… Read More Draw bernouli outcome from ifelse statement on list of dataframes