CODEWITHSUNDEEP
rgridline
Regan
Regan

Reputation: 31

Changing grid lines in a log graph in R

I am trying to format my graph attached below. I have a line of code

ggline(Titration.Aug.9, x="Dilution",y="X..bound",color="Sample") +
  scale_x_continuous(trans="log10",labels=trans_format("log10",math_format(10^.x))) +
theme_minimal() +
labs(x="Dilution",y="% Bound") +
scale_color_brewer(type="Sample",palette="Set1")

so that I may change the labels to 10^# and have only my x-axis on a log 10 scale. The problem is that I don't know how to change the grid lines so they are more frequent and less spaced. I have tried to use minor_breaks=seq(0,1e10, 1e10) nested in the scale_x_continuous command. Should I use a different command that encapsulates the whole graph since I want all grid lines to be changed? If so, what should I use?

1

Graph data

> dput(Titration.Aug.9)
structure(list(Dilution = c(300L, 900L, 2700L, 8100L, 24300L, 
72900L, 218700L, 300L, 900L, 2700L, 8100L, 24300L, 72900L, 218700L, 
300L, 900L, 2700L, 8100L, 24300L, 72900L, 218700L, 300L, 900L, 
2700L, 8100L, 24300L, 72900L, 218700L, 300L, 900L, 2700L, 8100L, 
24300L, 72900L, 218700L, 300L, 900L, 2700L, 8100L, 24300L, 72900L, 
218700L, 300L, 900L, 2700L, 8100L, 24300L, 72900L, 218700L, 300L, 
900L, 2700L, 8100L, 24300L, 72900L, 218700L, 300L, 900L, 2700L, 
8100L, 24300L, 72900L, 218700L), X..bound = c(52.74, 40.31, 30.63, 
18.89, 7.57, 0.8, 0.01, 20.23, 11.29, 7.55, 3.24, 0.54, 0.12, 
0.03, 53.27, 46.82, 38.17, 26.77, 11.59, 2.23, 0.07, 69.25, 63.55, 
56.34, 40.95, 19.35, 2.4, 0.05, 75.8, 68.21, 62.82, 40.33, 11.73, 
0.82, 0.04, 85.75, 82.82, 74.29, 46.63, 9.36, 0.24, 0.05, 71.65, 
66.54, 56.63, 33.96, 6.33, 0.19, 0.03, 85.43, 86.49, 75.73, 51.62, 
15.16, 1.05, 0.01, 92.44, 90.13, 85.92, 72.06, 30.08, 3.15, 0.12
), Sample = c("1mer 0DA", "1mer 0DA", "1mer 0DA", "1mer 0DA", 
"1mer 0DA", "1mer 0DA", "1mer 0DA", "1mer 2DA", "1mer 2DA", "1mer 2DA", 
"1mer 2DA", "1mer 2DA", "1mer 2DA", "1mer 2DA", "1mer 3DA", "1mer 3DA", 
"1mer 3DA", "1mer 3DA", "1mer 3DA", "1mer 3DA", "1mer 3DA", "1mer 4DA", 
"1mer 4DA", "1mer 4DA", "1mer 4DA", "1mer 4DA", "1mer 4DA", "1mer 4DA", 
"5mer 0DA", "5mer 0DA", "5mer 0DA", "5mer 0DA", "5mer 0DA", "5mer 0DA", 
"5mer 0DA", "5mer 2DA", "5mer 2DA", "5mer 2DA", "5mer 2DA", "5mer 2DA", 
"5mer 2DA", "5mer 2DA", "5mer 4DA", "5mer 4DA", "5mer 4DA", "5mer 4DA", 
"5mer 4DA", "5mer 4DA", "5mer 4DA", "5mer 2DA GDG", "5mer 2DA GDG", 
"5mer 2DA GDG", "5mer 2DA GDG", "5mer 2DA GDG", "5mer 2DA GDG", 
"5mer 2DA GDG", "5mer 2DA GDGDG", "5mer 2DA GDGDG", "5mer 2DA GDGDG", 
"5mer 2DA GDGDG", "5mer 2DA GDGDG", "5mer 2DA GDGDG", "5mer 2DA GDGDG"
)), class = "data.frame", row.names = c(NA, -63L))

Upvotes: 0

Views: 84

Answers (1)

Gregor Thomas
Gregor Thomas

Reputation: 145755

When I run your code I get a graph with 1 minor break in between every major break pair--unlike your picture. But you're right to try to use the minor_breaks argument to add more of them:

ggline(Titration.Aug.9, x="Dilution",y="X..bound",color="Sample") +
  scale_x_continuous(
    trans="log10",
    labels=trans_format("log10",math_format(10^.x)),
    minor_breaks = 10^(seq(0, 7, by = 0.25))
  ) +
  theme_minimal() +
  labs(x="Dilution",y="% Bound") +
  scale_color_brewer(type="Sample",palette="Set1")

enter image description here

Upvotes: 1

Related Questions