I am getting weird elements in my legend and my tooltip text that shows up by hoovering has random lines for color and shape.
SAMPLE DATA:
> dput(sample_n(Plot, 20))
structure(list(Strain = c(0.0099576, 0.00550752, 0.0255111, 0.00341572,
0.000323357, 0.0036487, 0.0265925, 0.00438567, 0.00437111, 0.0214385,
0.00957133, 0.00144209, 0.0237199, 0.00290038, 0.00786047, 0.0114374,
0.000582628, 0.00961509, 0.0110853, 0.00333173), Stress = c(74.4928907635218,
65.7454752463861, 86.6080612547546, 63.8155559103337, 15.8799350673083,
63.7937705218785, 76.1766851002328, 64.1491550648465, 64.0561929873925,
84.7109031517226, 64.7832595395012, 46.2442265654563, 85.8590430135155,
63.3618876683043, 71.5077936431304, 76.5758067207865, 26.3220708755176,
74.1047449875333, 76.1658755563428, 63.6570713668388), Instrumentation = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L), .Label = c("DIC", "Gauge"), class = "factor"), Bar = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L), .Label = c("Spliced", "Unspliced"), class = "factor")), row.names = c(NA,
-20L), class = "data.frame")
I tried to plot the data by subsetting so I can combine geom_point
and geom_line
. However, this seemed to have made the legends complicated. The colors specified in scale_color_manual
only applied to the geom_line
so I had to define the color for the points in geom_point
and now I am getting extra inputs in the text of the tooptip.
plot <- ggplot(data = subset(Plot, Instrumentation == "DIC"), aes(x = Strain, y = Stress,
colour = Instrumentation, linetype = Bar)) +
geom_line(size = 0.8) + theme_classic() +
geom_point(data = subset(Plot, Instrumentation == "Gauge"),
aes(colour = Instrumentation, shape = Bar), colour = "blue", size = 2) +
labs(x = "Strain (in/in)", y = "Stress (ksi)") + scale_color_manual(values = c("DIC"="red", "LVDT"="blue")) +
theme_classic() + theme(axis.text = element_text(color = "black", size = 16),
axis.line = element_line(color = "black", size = 0.2), axis.ticks.y = element_line(color = "black", size = 0.2),
axis.title.y = element_text(color = "black", size = 20, margin = margin(0,40,0,0)),
axis.title.x = element_text(color = "black", size = 20, margin = margin(35,0,0,0)),
legend.title = element_blank(), legend.text = element_text(color = "black", size = 16))
ggplotly(
p = ggplot2::last_plot(),
width = NULL,
height = NULL,
tooltip = c("Strain","Stress","Instrumentation","Bar"),
dynamicTicks = FALSE,
layerData = 1,
originalData = TRUE,) %>%
layout(yaxis = list(title = list(text = "Stress (ksi)", standoff = 30L)),
xaxis = list(title = list(text = "Strain (in/in)",standoff = 30L)),
legend = list(orientation = "v", x = 0.7, y = 0.13))
Screenshot shows how the plot looks with the current code. Is there a better way of assigning the colors without messing up the legends?