Here are the sample code df <- data.frame( A = c(1, 2, 3, 4), B = c(5, 6, NA, 8), C = c(9, NA, -1, 11), D = c(-2, 13, 14, 15), E = c(16, -3, 18, NA) ) replace_vec <- c(100, 200, 300) I want to replace the column 3:5 which the value is… Read More Replace the specified column contents in the data frame with the values in the specified vector
I have some data stored in a list where I am trying to apply the following code to: library(tidyverse) library(purrr) library(BVAR) mins <- map(df1, ~ .x / 100) maxs <- map(df1, ~ .x * 100) So, now I have 3 lists and I want to use purrr to pmap a function over those lists: The… Read More Use purrr to apply a function to 3 lists using all named vectors in each list
I have a dataframe with a factor variable identifying my groups (here y), and multiple numerical variables (to simplify, here I only show two x and z): df = tribble( ~x, ~y, ~z, 1, "a", 5, 2, "b", 6, 3, "a", 7, 4, "b", 8, 5, "a", 9, 6, "b", 10 ) I want to… Read More Applying conditional functions on multiple columns of a dataframe, based on values of a variable
Another seemingly easy task where purrr::map2 is giving me a hard time. I have a list of data frames and I have a vector of column names. I now want to rename a certain column in each of the data frames with the respective new column name. So I wanted to simply loop through it… Read More rename_with doesn't work in purrr::map2 – Error "! the … list contains fewer than 2 elements"
The codes for producing sample dataset and converting from character to numeric is as below: ff = data.frame(a = c(‘1′,’2′,’3’),b = 1:3, c = 5:7) #data.frame is a type of list. fff = list(ff,ff,ff,ff) k = fff %>% map(~map(.x,function(x){x[‘a’] %<>% as.numeric return(x)})) However, the result is something like this…: There are 3 lists appear in… Read More How to change the class of a column in a list of a list from character to numeric in r?
According to the answer of lhs, https://stackoverflow.com/a/72467827/11124121 #From lhs library(tidyverse) data("population") # create some data to interpolate population_5 <- population %>% filter(year %% 5 == 0) %>% mutate(female_pop = population / 2, male_pop = population / 2) interpolate_func <- function(variable, data) { data %>% group_by(country) %>% # can’t interpolate if only one year filter(n() >=… Read More Is it possible to interpolate a list of dataframes in r?
I have came across a tricky issue when using the across() and scale() functions together. Here are the sample data: library(tidyverse) roster <- tibble( Student = c("John Davis", "Angela Williams", "Bullwinkle Moose", "David Jones", "Janice Markhammer", "Cheryl Cushing", "Reuven Ytzrhak", "Greg Knox", "Joel England", "Mary Rayburn"), Math = c(502, 600, 412, 358, 495, 512, 410,… Read More Unusual names from across() when using scale() as the .fns
I have many plots that I need to create broken out by students’ level. To do this, I want to use map2 from the purrr package. I want one plot for each level (so 4 plots altogether), but when I do group_by, the code creates one plot for each student (16 unique plots). *How do… Read More In R, why is purrr's map2 ignoring my group_by argument when making plots?
I have two lists with different dataframes (original data has 70 dataframes for each list, totalising 2 million rows). df1 <- data.frame(colA = LETTERS[1:5], colB = seq(1,5)) df2 <- data.frame(colA = LETTERS[6:10], colB = seq(6,10)) list1 <- list(df1,df2) df3 <- data.frame(colA = LETTERS[1:5], colB = seq(11,15)) df4 <- data.frame(colA = LETTERS[6:10], colB = seq(16,20)) list2… Read More Add a column from one dataframe in a list to another dataframe in another list with map2
I have created a function called interval which takes two numbers as input between 1 and 12 and if the number is less than 10, it appends a 0 to the front. e.g. 4 becomes 04, but 11 stays 11. interval <- function(month_start = 1, month_end = 12){ month_range <- as.character(c(month_start:month_end)) month_range_char <- month_range %>%… Read More How do I make this R code to format integers with leading zero more succinct?