Density plot of raster stack
I would like to realize a density plot of raster stack using the package rasterVis in R-CRAN.
I would like to change the colors with which the distribution of my raster values is represented and also add a legend. Is it possible to do these things using this package? I didn't find any examples to do it.
Here my example code
require(raster)
require(rasterVis)
slogo <- stack(system.file("external/rlogo.grd", package="raster"))
densityplot(slogo,col=c("orange","skyblue1","cyan"))
Solution
Most of the rasterVis functions are based on the lattice package. Thus, you should use the par.settings argument providing your preferred theme. Here you will find more information about lattice themes.
Regarding your question, try this code:
library(rasterVis)
f <- system.file("external/test.grd", package="raster")
r <- raster(f)
s <- stack(r, r+500, r-500)
densityplot(s, par.settings = theEconomist.theme)
- R package gtsave cropping image, despite setting vwidth
- Reason for unexpected output in subsetting data frame - R
- Fitting a custom model in R
- Difference between 3D plots using fitted and predicted values
- R lookup interpolate between values or closest match
- How to remove duplicate legend in R ggplot
- How can I change the number of breaks of x axis for each graph individually for each facet in a facet_grid in R?
- Get the specific index of occurence when working with period.apply
- Identify single outliers using `diff()`
- Why does `ifelse()` behave differently than `if (cond) {...} else {...}`?
- Getting infinite values when expecting integers after mutating
- FUN.VALUE missing when using vapply
- how to add tables to a forest plot
- Adding leading zeros in the character and numeric mixed column names in R
- I need to update a package
- R Dplyr: Summarizing a column, if it is present
- Cross-validation with nb method
- Reverse order in R leaflet continuous legend
- How to assign different colors to points based on values in a forest plot in R?
- How to visualize interaction using emmeans
- Adding 1 to the last and second last numbers in my data
- Horizontal f7Radio in shinyMobile
- How to use a template in vim
- Regex pattern to include string while excuding other patterns
- R >4.1 syntax: Error: function 'function' not supported in RHS call of a pipe
- Mutating to return the average of a column in each row
- R View() function does not show data frame
- Data manipulation in R in LINQ style
- Unexpected output of dplyr::top_n
- Get position index of second highest value by row for selected columns