How to plot entropart Diversity profiles in ggplot2

Question

I got the diversity profiles of 6 altitudinal bands with DivProfile function of entropart package. Now I want to plot one of the components of the result object, $CommunityAlphaDiversities, using ggplot2
I tried this:
band.div1 <- as.data.frame(banddivs)
ggplot()+
  geom_line(data=band.div1, aes(x = Order, y = X1700))+
  geom_line(data=band.div1, aes(x = Order, y = X1900))+
  geom_line(data=band.div1, aes(x = Order, y = X2100))+
  geom_line(data=band.div1, aes(x = Order, y = X2300))+
  geom_line(data=band.div1, aes(x = Order, y = X2500))+
  geom_line(data=band.div1, aes(x = Order, y = X1700A))+
  theme(axis.title.x = element_text(size=18), # remove x-axis labels
        axis.title.y = element_text(size=18), # remove y-axis labels
        panel.grid.major = element_blank(),  #remove major-grid labels
        panel.grid.minor = element_blank())  #remove minor-grid labels)

But I don't know how to set different colours for each line. My ggplot2 handling is very limited

M-- · Answer

You need to reshape your data to a long format to have a variable for grouping (to avoid multiple geom_lines) and also use that variable for colour.

band.div1.long <- reshape(band.div1, direction='long', 
        varying=c('X1700', 'X1700A', 'X1900', 'X2100', 'X2300', 'X2500'), 
        timevar='var',
        times=c('X1700', 'X1700A', 'X1900', 'X2100', 'X2300', 'X2500'),
        v.names=c('X'),
        idvar='Order')

library(ggplot2)    
ggplot()+
  geom_line(data=band.div1.long, aes(x = Order, y = X, group=var, colour=var))+
  theme(axis.title.x = element_text(size=18),
        axis.title.y = element_text(size=18),
        panel.grid.major = element_blank(),  
        panel.grid.minor = element_blank())

You can specify the colour manually in each geom but it is not efficient. Look below:

ggplot()+
  geom_line(data=x, aes(x = Order, y = X1700 , colour="X1700" ))+
  geom_line(data=x, aes(x = Order, y = X1900 , colour="X1900" ))+
  geom_line(data=x, aes(x = Order, y = X2100 , colour="X2100" ))+
  geom_line(data=x, aes(x = Order, y = X2300 , colour="X2300" ))+
  geom_line(data=x, aes(x = Order, y = X2500 , colour="X2500" ))+
  geom_line(data=x, aes(x = Order, y = X1700A, colour="X1700A"))+
  theme(axis.title.x = element_text(size=18),
        axis.title.y = element_text(size=18),
        panel.grid.major = element_blank(),  
        panel.grid.minor = element_blank())

How to plot entropart Diversity profiles in ggplot2

One Answer

Add your own answers!

Related Questions

Trying build a func for multiply which accept any type numbers to work

NodeJS – Custom DNS lookup, fallback to ipv4

Hyperledger fabric instantiate timeout because of internet speed, how can I use taobao.org npm image , not official image

How to query the max limit of the data through websocket with python?

Validate input of jTextField using setter java

How to get state variables from one component to another when i’m using history.push?

How to make both bits of code run at the same time

Parametrized types in Raku, how to use run time values as parameters

SSL for pointed domains

Warning: Inferring latch for variable ‘w_addra_t’ (in Verilog/SystemVerilog with FOR loop)

Scaling kube-state-metrics in prometheus-operator

Encrypt message using RSA on ESP32

Counting the occurrences of a substring in a string python

Read data from a pandas DataFrame and create a tree using anytree in python

C# calculations differ between const and variable locals?

Dependency Injection: How to get access to the corresponding ProductView that executes the Command?

Extracting keys and values from nested Object/Array in Javascript

Python web scraping problems – result different from soruce code

I want to change the distance between my image and text and also move all of the items to the left like in image two

How do i call API with multiple parameters in android studio

Ask a Question