2016 Update: The order aesthetic has been deprecated, so at this point the easiest approach is to sort the data.frame so that the green point is at the bottom, and is plotted last. If you don’t want to alter the original data.frame, you can sort it during the ggplot call – here’s an example that … Read more
Update The original solution used annotation_custom, but a problem with annotation_custom is that it draws the annotation in all panels. However, with a simple modification, annotation_custom can be made to draw in one panel only (taken from Baptiste’s answer here) annotation_custom2 <- function (grob, xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = … Read more
The square brackets are in fact a function whose first argument is the object being subsetted. Subsequent arguments are the index to that subset. # For example, if M is a matrix M[1, 2] # extracts the element at row 1, col 2 # is the same as `[`(M, 1, 2) # Try them! Now, … Read more
I’m already using a simpler and more reliable way than the one I posted before. A combination of tags$style(type=”text/css”, ” #loadmessage { position: fixed; top: 0px; left: 0px; width: 100%; padding: 5px 0px 5px 0px; text-align: center; font-weight: bold; font-size: 100%; color: #000000; background-color: #CCFF66; z-index: 105; } “) with conditionalPanel(condition=”$(‘html’).hasClass(‘shiny-busy’)”, tags$div(“Loading…”,id=”loadmessage”) ) Example: runApp(list( … Read more
# reassign depth values under 10 to zero df$depth[df$depth<10] <- 0 (For the columns that are factors, you can only assign values that are factor levels. If you wanted to assign a value that wasn’t currently a factor level, you would need to create the additional level first: levels(df$species) <- c(levels(df$species), “unknown”) df$species[df$depth<10] <- “unknown”
Here 2 options for subsetting: Using subset from base R: library(ggplot2) ggplot(subset(dat,ID %in% c(“P1” , “P3”))) + geom_line(aes(Value1, Value2, group=ID, colour=ID)) Using subset the argument of geom_line(Note I am using plyr package to use the special . function). library(plyr) ggplot(data=dat)+ geom_line(aes(Value1, Value2, group=ID, colour=ID), ,subset = .(ID %in% c(“P1” , “P3”))) You can also use … Read more
If you look at ?glm (or even do a Google search for your second warning message) you may stumble across this from the documentation: For the background to warning messages about ‘fitted probabilities numerically 0 or 1 occurred’ for binomial GLMs, see Venables & Ripley (2002, pp. 197–8). Now, not everyone has that book. But … Read more
Create a datetime object with as.POSIXct: as.POSIXct(paste(x$date, x$time), format=”%Y-%m-%d %H:%M:%S”) [1] “2010-02-02 08:00:03 GMT” “2010-02-02 08:00:04 GMT” “2010-02-02 08:00:04 GMT” [4] “2010-02-02 08:00:04 GMT” “2010-02-02 08:00:04 GMT”
If you are only looking to replace all occurrences of “< ” (with space) with “<” (no space), then you can do an lapply over the data frame, with a gsub for replacement: > data <- data.frame(lapply(data, function(x) { + gsub(“< “, “<“, x) + })) > data name var1 var2 1 a <2 <3 … Read more
Recoding can mean a lot of things, and is fundamentally complicated. Changing the levels of a factor can be done using the levels function: > #change the levels of a factor > levels(veteran$celltype) <- c(“s”,”sc”,”a”,”l”) Transforming a continuous variable simply involves the application of a vectorized function: > mtcars$mpg.log <- log(mtcars$mpg) For binning continuous data … Read more