Grubość pręta kontrolnego (koloru) za pomocą suwaka ggplot2

Question

Czy można zastosować argument suwu wprowadzony za pomocą ggplot2 2.0, aby dostosować grubość obramowań wokół prętów? Jeśli nie, czy istnieje sposób kontrolowania grubości prętów wzdłuż linii grubości granicy punktu? Stroke applies to borders around certain shapes -- see the second answer

Bardzo skromny MWE, pokazując tylko wypełnienia:

factor <- c("One", "Two", "Three", "Four") 
value <- c(1, 2, 3, 4) 
factor2 <- c("A", "B", "A", "B") 

df <- data.frame(factor = factor(factor, levels = factor), 
       value = value, factor2 = factor2) 

ggplot(df, aes(x = factor, y = value, color = factor2)) + 
    geom_bar(stat = "identity") 

EDIT po KOMENTARZ OK, dzięki za komentarz MLavoie, to było tak proste. Oto kod, na którym skończyłem i nie, nie używam tego wątku poza nauczaniem o ggplot i jego możliwościach.

ggplot(df, aes(x = factor, y = value, color = factor2)) + 
    scale_color_manual(values = c("darkgreen", "slateblue4")) + 
    geom_bar(stat = "identity", aes(fill = "transparent", size = ifelse(factor2 == "A", 2, 1))) + 
    guides(fill = FALSE) + 
    guides(size = FALSE) + 
    guides(color = FALSE) 

Answer 1

dobrze jak ja, sugerowane przez PO, będę po prostu ponownie skopiować mój komentarz jako odpowiedź.

wystarczy ustawić size w swojej wypowiedzi geom_bar():

geom_bar(stat = "identity", aes(fill = "transparent", size = ifelse(factor2 == "A", 2, 1)), size=2)