Please find my code below: packages <- c("ggplot2", "dplyr", "quantreg", "officer","tidyverse","here","glue","rvg","viridis","scales") install.packages(setdiff(packages, rownames(installed.packages()))) lapply(packages, require, character.only = TRUE) data <- read.csv(file=’Spiderplot_data.csv’, header=TRUE) Progressed <- as.factor(data$Progression) Response <- as.factor(data$X) Response <- factor(data$X, levels = c("Progressive Disease", "Stable Disease", "Partial Response", "Complete Response")) highlight_df <- filter(data, Progression == 1) p <- ggplot() + geom_line( data, mapping = […]
- Tags "14", "Complete Response")) highlight_df <- filter(data, "here" ], "Partial Response", "quantreg", "require": {} }, "rvg", "scales") install.packages(setdiff(packages, "Stable Disease", "viridis", ) ) + scale_shape_manual( values = c(16, [ 75, 0.001)) ) + scale_y_continuous( name = "Percent Change in Lesion SLD (%)", 10, 12, 16, 18, 18) ) + scale_color_brewer( palette = "Set1" ) + scale_x_continuous( name = "Cycle", 2, 20, 30, 4, 40, 45], 50, 6, 65, 8, breaks = c(-1, breaks = c(0, but to no avail., character.only = TRUE) data <- read.csv(file='Spiderplot_data.csv', color = Response, color = Response ) ) + geom_point( data, dplyr, expand = expansion(mult = c(0, Glue, group = Study_ID, header=TRUE) Progressed <- as.factor(data$Progression) Response <- as.factor(data$X) Response <- factor(data$X, height = 5)) %>% # export slide ----- base::print( target = here::here( "demo_3.pptx" ) ) As you can see the distance between each, I am using the funciton wrong? Any help would be much appreciated. Orginal Image Image with scale_x_sqrt, is there a way to spread out the distance on the plot between 0-20 and make space between 20-40 smaller? As you can see I have tried to do t, labels = percent ) + ggtitle("Response Plot") p p_dml <- rvg::dml(ggobj = p) # initialize PowerPoint slide ---- officer::read_pptx(), levels = c("Progressive Disease", limits = c(-1, limits = c(0, mapping = aes( x = Cycle, officer, ph_location(width = 10, Please find my code below: packages <- c("ggplot2", Progression == 1) p <- ggplot() + geom_line( data, rownames(installed.packages()))) lapply(packages, shape = 18, shape = Progressed ) ) + geom_point( # Data set with just points highlight_df, size = 2.8, tidyverse, y = Change