r

问题 I am trying to subset rows of a data set using a condition that's based on the previous row, whilst keeping the previous row in the subsetted data. This is essentially the same as the question here, but I am looking for a dplyr approach: Select specific rows based on previous row value (in the same column) I have taken the dplyr approach applied in the comments to that answer, but I am unable to figure out the last step of retaining the previous row. I can get the rows that support the

问题 I am using the R programming language. I am trying to follow the tutorial here on "switching between graphs" : https://plotly.com/r/dropdowns/ (first example). First, I generated some data in R: library(plotly) library(MASS) x <- sample( LETTERS[1:4], 1000, replace=TRUE, prob=c(0.25, 0.25, 0.25, 0.25) ) y <- rnorm(1000,10,10) z <- rnorm(1000,5,5) df <- data.frame(x,y, z) df$x = as.factor(df$x) colnames(df) <- c("x", "y", "z") I tried to modify the code from this tutorial to make the final

问题 Example: > x <- c(1e6,2e6,500e3,10e6,233e3,50e3) > cut(x,c(0,250e3,500e3,1e6,2.5e6,99e6),dig.lab=10) [1] (500000,1000000] (1000000,2500000] (250000,500000] (2500000,99000000] (0,250000] [6] (0,250000] Levels: (0,250000] (250000,500000] (500000,1000000] (1000000,2500000] (2500000,99000000] Is there a way I can use the cut function with custom labels? I would like it to show labels such as: (0,250k],(250k,500k],(500k,1m],(1m,2.5m],(2.5m,inf] Is there a way to do this? 回答1: As @user20650 said,

问题 I have got the following problem: When I plot anything with ggplot2 like this # Libraries library(ggplot2) # create data xValue <- 1:10 yValue <- cumsum(rnorm(10)) data <- data.frame(xValue,yValue) # Plot ggplot(data, aes(x=xValue, y=yValue)) + geom_line() The resulting graph looks like this where the text is shown in weir unicode blocks: ggplot2 graph with text issue These unicode blocks look like boxes with four numbers starting with two 0s like: # Example block ---- |00| |2C| ---- I

问题 I have got the following problem: When I plot anything with ggplot2 like this # Libraries library(ggplot2) # create data xValue <- 1:10 yValue <- cumsum(rnorm(10)) data <- data.frame(xValue,yValue) # Plot ggplot(data, aes(x=xValue, y=yValue)) + geom_line() The resulting graph looks like this where the text is shown in weir unicode blocks: ggplot2 graph with text issue These unicode blocks look like boxes with four numbers starting with two 0s like: # Example block ---- |00| |2C| ---- I

问题 This question already has answers here : How can I print when using %dopar% (6 answers) Closed 3 years ago . I'm using doParallel to do fairly long parallel processing with foreach . Rather than most examples I see, where a computationally-intensive but input-light code is fed into the loop, I'm using foreach to coordinate the simultaneous processing of a number of large, independent datasets. So inside the loop, I'm using metadata to read in a file from disk, operate on it, and write back

问题 This question already has answers here : How can I print when using %dopar% (6 answers) Closed 3 years ago . I'm using doParallel to do fairly long parallel processing with foreach . Rather than most examples I see, where a computationally-intensive but input-light code is fed into the loop, I'm using foreach to coordinate the simultaneous processing of a number of large, independent datasets. So inside the loop, I'm using metadata to read in a file from disk, operate on it, and write back

问题 I am trying to run a linear mixed-effects model in R using the function lmer, but I keep getting the same warning messages. I am attempting to analyze the effects of graded air density, thorax temperature (main effects), and hive selection (random effect) on flight metabolic rate in honey bees. There looks like there is a strongly significant effect of this "aerial treadmill" I've developed, I just need to figure out the stats to back up my claims. Attached is my code: #Loading my dataset

问题 I am trying to run a linear mixed-effects model in R using the function lmer, but I keep getting the same warning messages. I am attempting to analyze the effects of graded air density, thorax temperature (main effects), and hive selection (random effect) on flight metabolic rate in honey bees. There looks like there is a strongly significant effect of this "aerial treadmill" I've developed, I just need to figure out the stats to back up my claims. Attached is my code: #Loading my dataset

问题 Hi want to create a new variable/column (WHRcat) by 2 variables (WHR and sexe) under a certain condition wth dyplr, mutate and case_when. Data: WHR sexe WHRcat (new variable) 1.5 1 2.8 2 0.2 2 0.3 1 1.1 1 My code: test<- test%>% mutate(WHRcat = case_when((WHR >= 1.02 & sexe = 1) ~ 1, (WHR < 1.02 & sexe = 1) ~ 2, (WHR >= 0.85 & sexe = 2) ~ 3, (WHR < 0.85 & sexe = 2) ~ 4, TRUE ~ 0)) Though doesnt work. Error: > test<- test%>% mutate(WHRcat = case_when((WHR >= 1.02 & sexe = 1) ~ 1, + (WHR < 1.02