Reduce point size in study plot

app.R

@@ -158,10 +158,10 @@ server <- function(input, output) {
                                          input$plot_category == "Mass_meas" ~ Mass_ref_red
                                        )),
                                    linewidth=4, alpha = 0.15) +
-        geom_text(family = "Arial", size = 10,label = "\u2727", 
+        geom_text(family = "Arial", size = 9,label = "\u2727", 
                   colour = "#FFFFFF", show.legend = FALSE, 
                   position = position_nudge(x = 0.1)) + # Simulation of stroke line
-        geom_text(family = "Arial", size = 7,label = "\u2727", 
+        geom_text(family = "Arial", size = 6,label = "\u2727", 
                   colour = "#777777", show.legend = FALSE, 
                   position = position_nudge(x = 0.1)) + # Simulation of stroke line
         geom_text_interactive(aes(colour = case_when(
@@ -175,7 +175,7 @@ server <- function(input, output) {
                                     input$plot_category == "Mass_meas" ~ Mass_ref_red
                                   ),
                                   tooltip = paste(Reference_study, "\n", round(MAC_m2g_550, digits = 2), " m²/g")),
-                              family = "Arial", size = 7, label = "\u2726",
+                              family = "Arial", size = 6, label = "\u2726",
                               alpha = 0.7, show.legend = TRUE,
                               position = position_nudge(x = 0.1)) + # Fill character in front
         facet_grid(Study_durn ~ ., scales = "free", space = "free")