Hello, I am trying to make the chart in R as similar as possible to the one in the Python video. To change the color of the secondary axis I used the theme layer: axis.text.y.right, axis.line.y.right, axis.ticks.y.right. But nothing changes on my graph. Any suggestions? library(ggplot2) df_kdnuggets <- read.csv("bar_line_chart_data.csv", header = TRUE, sep = ",") combo <- ggplot(data= df_kdnuggets, aes(x = Year, y = Participants, Python.Users)) + geom_bar( aes ( y = df_kdnuggets$Participants), stat = "identity", fill = "black", color = "black") + # Adding the line chart geom_line(aes( y = df_kdnuggets$Python.Users*max(df_kdnuggets$Participants)), stat = "identity", color = "red", size = 2) + # Adding marker with geom_point geom_point(aes( y = df_kdnuggets$Python.Users*max(df_kdnuggets$Participants)), color = "red", size = 5, shape = 18)+ # change shape to diamond scale_y_continuous(sec.axis = sec_axis(~./max(df_kdnuggets$Participants), labels = scales::percent, name = "Python Users in %"), expand = c(0,0)) + ggtitle("KD Nuggets Survey Python Users (2012- 2019)") + theme(plot.title = element_text(face = "bold", color = "black", size = 16), axis.text.y.right = element_text(color = "red"), # Change text to red axis.line.y.right = element_line(color = "red"), # change secondary axis to red axis.ticks.y.right = element_line(color = "red"))+ # change ticks to red theme_classic() combo

Hi Diego, thanks for reaching out! First of all, the chart you've shown looks amazing, congrats on your progress! I am getting some kind of error when trying out your code, so I'll need a bit more time to troubleshoot the issue. From what I can see, I'd suggest you try and swap the theme_classic and axis.lenght/type/ticks, so that the theme_classic element comes before the axis adjustments. Might be what is causing the issue. Let me know if there's still an issue with the chart. Best, 365 Eli

Hi Eli, Thank you so much for your help! It works after switching the order of the theme_classic() library(ggplot2) df_kdnuggets <- read.csv("bar_line_chart_data.csv", header = TRUE, sep = ",") combo <- ggplot(data= df_kdnuggets, aes(x = Year, y = Participants, Python.Users)) + geom_bar( aes ( y = df_kdnuggets$Participants), stat = "identity", fill = "black", color = "black") + # Adding the line chart geom_line(aes( y = df_kdnuggets$Python.Users*max(df_kdnuggets$Participants)), stat = "identity", color = "red", size = 2) + # Adding marker with geom_point geom_point(aes( y = df_kdnuggets$Python.Users*max(df_kdnuggets$Participants)), color = "red", size = 5, shape = 18)+ # change shape to diamond scale_y_continuous(sec.axis = sec_axis(~./max(df_kdnuggets$Participants), labels = scales::percent, name = "Python Users in %"), expand = c(0,0)) + ggtitle("KD Nuggets Survey Python Users (2012- 2019)") + theme_classic()+ theme(plot.title = element_text(face = "bold", color = "black", size = 16), axis.text.y.right = element_text(color = "red"), # Change text to red #change secondary axis to red axis.line.y.right = element_line(color = "red"), axis.ticks.y.right = element_line(color = "red")) # change ticks to red combo