Source: https://www.reddit.com/user/NeurosciFox/

ua_flag <- data.frame(kolir = c("top", "bottom"),

dovzh = c(3, 3)

)

ggplot(ua_flag, aes(dovzh, kolir, fill=kolir)) +

geom_col(width=1) +

scale_fill_manual(values=c(top ="#0057B7", bottom ="#FFDD00"))+

scale_x_continuous(expand = expansion(add = c(0,0))) +

scale_y_discrete(expand = expansion(add = c(0,0))) +

labs(fill=NULL, x=NULL, y=NULL) +

coord_fixed() +

theme(axis.text.x=element_blank(),

axis.ticks.x=element_blank(),

axis.text.y=element_blank(),

axis.ticks.y=element_blank(),

plot.title=element_text(size =20),

legend.position="none")

data(package = "ggplot2")
vignette(package = "ggplot2")
vignette(package = "dplyr")

facets

ggplot(mpg, aes(displ, hwy)) + 
  geom_point() + 
  facet_wrap(~cyl)

mpg2 <- subset(mpg, cyl != 5 & drv %in% c("4", "f") & class != "2seater")
str(diamonds)
## tibble [53,940 x 10] (S3: tbl_df/tbl/data.frame)
##  $ carat  : num [1:53940] 0.23 0.21 0.23 0.29 0.31 0.24 0.24 0.26 0.22 0.23 ...
##  $ cut    : Ord.factor w/ 5 levels "Fair"<"Good"<..: 5 4 2 4 2 3 3 3 1 3 ...
##  $ color  : Ord.factor w/ 7 levels "D"<"E"<"F"<"G"<..: 2 2 2 6 7 7 6 5 2 5 ...
##  $ clarity: Ord.factor w/ 8 levels "I1"<"SI2"<"SI1"<..: 2 3 5 4 2 6 7 3 4 5 ...
##  $ depth  : num [1:53940] 61.5 59.8 56.9 62.4 63.3 62.8 62.3 61.9 65.1 59.4 ...
##  $ table  : num [1:53940] 55 61 65 58 58 57 57 55 61 61 ...
##  $ price  : int [1:53940] 326 326 327 334 335 336 336 337 337 338 ...
##  $ x      : num [1:53940] 3.95 3.89 4.05 4.2 4.34 3.94 3.95 4.07 3.87 4 ...
##  $ y      : num [1:53940] 3.98 3.84 4.07 4.23 4.35 3.96 3.98 4.11 3.78 4.05 ...
##  $ z      : num [1:53940] 2.43 2.31 2.31 2.63 2.75 2.48 2.47 2.53 2.49 2.39 ...
ggplot(diamonds, aes(carat, price, color = cut)) +
  geom_point()

ggplot(diamonds, aes(carat, price, color = color)) +
  geom_point()

ggplot(diamonds, aes(carat, price)) +
  geom_point() + 
  facet_wrap(~cut)

ggplot(diamonds, aes(carat, price, color = color)) +
  geom_point() + 
  facet_wrap(~cut)

ggplot(diamonds, aes(carat, price)) +
  geom_point() + 
  facet_grid(color~cut)