Odtnhj

I want to plot a heatmap using ggplot2, and I want to customize the x-axis ticks - location, text, and angle.

Here are my example data:

set.seed(1)
df <- reshape2::melt(matrix(rnorm(100*20),100,20,dimnames = list(paste0("G",1:100),paste0("S",1:20))))

I'd like to have the x-axis tick have only a single tick value, located in the middle of the axis range - 10, with the label: "X-Label", at a 90 degrees angle. In addition, I do not want an x-axis title.

Here's what I'm trying:

library(ggplot2)
ggplot(data=df,mapping=aes(x=Var2,y=Var1,fill=value))+
 geom_tile()+theme_minimal()+scale_fill_gradient2(name="Scaled Value",low="darkblue",mid="gray",high="darkred")+
 scale_x_discrete(breaks=10,labels="X-Label")+theme(axis.title.x=element_blank(),axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))

So, obviously it's not working.

I thought that I can define the angle as part of the scale_x_discrete arguments but couldn't find that option.

Also, note that I do not want an x-axis title but only the tick text. So I'm not sure why the breaks and labels arguments in scale_x_discrete are ignored.

Here's the desired outcome using plotly:

library(plotly)
library(dplyr)
plot_ly(z=c(df$value),x=df$Var2,y=df$Var1,colors=grDevices::colorRamp(c("darkblue","gray","darkred")),type="heatmap",colorbar=list(title="Scaled Value",len=0.4)) %>%
 layout(yaxis=list(title=NULL),xaxis=list(tickangle=90,tickvals=10,ticktext="X-Label"))

Thanks

I think that specifying breaks = 10 is causing your axis labels to go unprinted. 10 isn't one of your values, and it doesn't fit the description of a valid argument in ?scale_x_discrete, so let's use a real x-axis value instead. You say "right in the middle", so I'll use "G50" since your x-axis values range from "G1" to "G100":

ggplot(data = df,
 mapping = aes(x = Var1, y = Var2, fill = value)) +
 geom_tile() +
 theme_minimal() +
 scale_fill_gradient2(
 name = "Scaled Value",
 low = "darkblue",
 mid = "gray",
 high = "darkred"
 ) +
 scale_x_discrete(breaks = "G50", labels = "X-Label", name = "") + 
 theme(
 axis.text.x = element_text(
 angle = 90,
 hjust = 1,
 vjust = 0.5
 ))

I also specified name = "" in the scale function instead of using theme to disable the axis title.

If you need to dynamically calculate the middle level, it's a bit messy but this should work:

breaks = levels(df$Var1)[ceiling(length(levels(df$Var1)) / 2)]

The breaks option inside scale_x_discrete does not specify the number of breaks but one of:

• NULL for no breaks


• waiver() for the default breaks computed by the transformation object


• A character vector of breaks


• A function that takes the limits as input and returns breaks as output

I find it easiest just to define the character vectors. In this case one half over at the 50th element.

set.seed(1)
df <- reshape2::melt(matrix(rnorm(100*20),100,20,dimnames = list(paste0("G",1:100),paste0("S",1:20))))

library(ggplot2)
ggplot(data=df,mapping=aes(x=Var1,y=Var2,fill=value))+
 geom_tile() +
 theme_minimal() +
 scale_fill_gradient2(name="Scaled Value",low="darkblue",mid="gray",high="darkred") +
 scale_x_discrete(breaks=unique(df$Var1)[50],labels="X-Label") +
 theme(axis.title.x=element_blank(), axis.text.x=element_text(angle=90,hjust=1,vjust=0.5))

#Use this line instead to label along the axis
 #scale_x_discrete(breaks=unique(df$Var1)[seq(1,100, 10)],labels=unique(df$Var1)[seq(1,100, 10)]) +

Hopefully this is what you are looking for.