1
df_rate_flat <- structure(list(pair = c("0841_0851_Mandaic", "0843_0850_Mandaic", "0846_0855_Mandaic", "0849_0856_Mandaic", "084A_084D_Mandaic", "0853_0857_Mandaic", "10332_10338_Gothic", "10334_10340_Gothic", "10336_10348_Gothic", "1033A_10342_Gothic", "1033B_1034A_Gothic", "10345_10347_Gothic", "10380_10397_Ugaritic", "10381_1038B_Ugaritic", "10382_1039C_Ugaritic", "10386_10398_Ugaritic", "10388_1039D_Ugaritic", "10389_1038C_Ugaritic", "109A5_109AA_MeroiticCursive", "109A9_109B2_MeroiticCursive", "109AC_109B3_MeroiticCursive", "109AD_109AE_MeroiticCursive", "109AF_109B5_MeroiticCursive", "109B0_109B4_MeroiticCursive", "110A_1164_Hangul", "110B_116B_Hangul", "1112_1175_Hangul", "1169_116E_Hangul", "116A_116F_Hangul", "116D_1172_Hangul", "1683_168B_Ogham", "1685_168C_Ogham", "1687_168D_Ogham", "1689_168A_Ogham", "168E_168F_Ogham", "1695_1696_Ogham", "16AD1_16AE7_BassaVah", "16ADA_16AE4_BassaVah", "16ADC_16AE9_BassaVah", "16ADD_16ADE_BassaVah", "16ADF_16AE8_BassaVah", "16AE1_16AE2_BassaVah", "1761_1762_Tagbanwa", "1763_176C_Tagbanwa", "1764_1768_Tagbanwa", "1765_1770_Tagbanwa", "1769_176E_Tagbanwa", "176A_176F_Tagbanwa", "1A05_1A0A_Buginese", "1A07_1A12_Buginese", "1A08_1A13_Buginese", "1A0C_1A0F_Buginese", "1A10_1A15_Buginese", "1A14_1A16_Buginese", "A805_A807_SylotiNagri", "A810_A812_SylotiNagri", "A811_A813_SylotiNagri", "A814_A822_SylotiNagri", "A818_A81C_SylotiNagri", "A819_A81B_SylotiNagri"), Script = c("Mandaic", "Mandaic", "Mandaic", "Mandaic", "Mandaic", "Mandaic", "Gothic", "Gothic", "Gothic", "Gothic", "Gothic", "Gothic", "Ugaritic", "Ugaritic", "Ugaritic", "Ugaritic", "Ugaritic", "Ugaritic", "MeroiticCursive", "MeroiticCursive", "MeroiticCursive", "MeroiticCursive", "MeroiticCursive", "MeroiticCursive", "Hangul", "Hangul", "Hangul", "Hangul", "Hangul", "Hangul", "Ogham", "Ogham", "Ogham", "Ogham", "Ogham", "Ogham", "BassaVah", "BassaVah", "BassaVah", "BassaVah", "BassaVah", "BassaVah", "Tagbanwa", "Tagbanwa", "Tagbanwa", "Tagbanwa", "Tagbanwa", "Tagbanwa", "Buginese", "Buginese", "Buginese", "Buginese", "Buginese", "Buginese", "SylotiNagri", "SylotiNagri", "SylotiNagri", "SylotiNagri", "SylotiNagri", "SylotiNagri"),     average.rate = c(6.54444444444444, 6.5, 5.80555555555556,     3.44444444444444, 3.49444444444444, 5.78888888888889, 6.75,     6.65555555555556, 6.93333333333333, 3.53888888888889, 6.32777777777778,     5.58333333333333, 4.08888888888889, 4.77222222222222, 5.24444444444444,     6.37777777777778, 5.83888888888889, 5.03333333333333, 6.36666666666667,     3.52777777777778, 6.36666666666667, 6.37222222222222, 6.81111111111111,     6.44444444444444, 6.72222222222222, 6.92222222222222, 6.76111111111111,     2.35555555555556, 2.99444444444444, 2.4, 6.38333333333333,     5.97777777777778, 5.71111111111111, 2.14444444444444, 2.05,     6.1, 2.97777777777778, 6.43888888888889, 3.71111111111111,     6.22222222222222, 6.73333333333333, 6.78333333333333, 6.51666666666667,     6.71111111111111, 3.03888888888889, 6.31666666666667, 2.71111111111111,     5.6, 6.31666666666667, 5.91111111111111, 3.66666666666667,     5.68333333333333, 2.33888888888889, 3.16666666666667, 6.11111111111111,     5.41111111111111, 2.11666666666667, 4.91111111111111, 2.00555555555556,     5.50555555555556), average.hamming = c(0.73, 0.87, 0.13,     0.13, 0.13, 0.73, 0.77, 0.69, 0.69, 0.15, 0.15, 0.15, 0.17,     0.56, 0.56, 0.61, 0.17, 0.11, 0.13, 0.13, 0.63, 0.13, 0.75,     0.63, 0.76, 0.76, 0.71, 0.1, 0.1, 0.1, 0.69, 0.69, 0.77,     0.15, 0.15, 0.15, 0.14, 0.76, 0.14, 0.14, 0.81, 0.81, 0.78,     0.78, 0.22, 0.89, 0.22, 0.22, 0.75, 0.83, 0.17, 0.75, 0.25,     0.25, 0.7, 0.09, 0.04, 0.65, 0.09, 0.7)), class = c("grouped_df", "tbl_df", "tbl", "data.frame"), row.names = c(NA, -60L), groups = structure(list(    pair = c("0841_0851_Mandaic", "0843_0850_Mandaic", "0846_0855_Mandaic",     "0849_0856_Mandaic", "084A_084D_Mandaic", "0853_0857_Mandaic",     "10332_10338_Gothic", "10334_10340_Gothic", "10336_10348_Gothic",     "1033A_10342_Gothic", "1033B_1034A_Gothic", "10345_10347_Gothic",     "10380_10397_Ugaritic", "10381_1038B_Ugaritic", "10382_1039C_Ugaritic",     "10386_10398_Ugaritic", "10388_1039D_Ugaritic", "10389_1038C_Ugaritic",     "109A5_109AA_MeroiticCursive", "109A9_109B2_MeroiticCursive",     "109AC_109B3_MeroiticCursive", "109AD_109AE_MeroiticCursive",     "109AF_109B5_MeroiticCursive", "109B0_109B4_MeroiticCursive",     "110A_1164_Hangul", "110B_116B_Hangul", "1112_1175_Hangul",     "1169_116E_Hangul", "116A_116F_Hangul", "116D_1172_Hangul",     "1683_168B_Ogham", "1685_168C_Ogham", "1687_168D_Ogham",     "1689_168A_Ogham", "168E_168F_Ogham", "1695_1696_Ogham",     "16AD1_16AE7_BassaVah", "16ADA_16AE4_BassaVah", "16ADC_16AE9_BassaVah",     "16ADD_16ADE_BassaVah", "16ADF_16AE8_BassaVah", "16AE1_16AE2_BassaVah",     "1761_1762_Tagbanwa", "1763_176C_Tagbanwa", "1764_1768_Tagbanwa",     "1765_1770_Tagbanwa", "1769_176E_Tagbanwa", "176A_176F_Tagbanwa",     "1A05_1A0A_Buginese", "1A07_1A12_Buginese", "1A08_1A13_Buginese",     "1A0C_1A0F_Buginese", "1A10_1A15_Buginese", "1A14_1A16_Buginese",     "A805_A807_SylotiNagri", "A810_A812_SylotiNagri", "A811_A813_SylotiNagri",     "A814_A822_SylotiNagri", "A818_A81C_SylotiNagri", "A819_A81B_SylotiNagri"    ), .rows = structure(list(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L,         9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L,         20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L,         31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L,         42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L,         53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L), ptype = integer(0), class = c("vctrs_list_of",     "vctrs_vctr", "list"))), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -60L), .drop = TRUE))

library(tidyverse)
library(ggrepel)

for (s in script <- unique(df_rate_flat$Script))  {
  p <-  df_rate_flat %>% filter(Script == s) %>% 
    ggplot(aes(x = average.rate, y = average.hamming, color = Script)) +
    geom_point(size = 3) +
    geom_text_repel(aes(label = pair), nudge_x = 0.2, nudge_y = 0.2, size = 6) +
    theme_bw() +
    theme(legend.position = "none", 
          plot.background = element_blank(),
          plot.title = element_text(hjust = 0.5),
          axis.text = element_text(color = "black", size = 14),
          axis.line = element_line(color = "black")
    ) +
    ggtitle(s)
  print(p)
  ggsave(paste0("Graphiques/plot_point_", s, ".png"),
         plot = p,
         width = 4.385417, height = 6.083333,
         device = "png")
}

What I get enter image description here What I want enter image description here

Julien
  • 1,613
  • 1
  • 10
  • 26
  • As well as a panel border framing your plot, there are separate axis lines. Set `axis.line.y = element_blank()` inside `theme` – Allan Cameron Jun 17 '23 at 16:01
  • The Y axis does appear in fact but the size is not correct, I will edit the title of the post – Julien Jun 17 '23 at 16:04

1 Answers1

0

Just call x11() first to make a plot window, scale it to the correct size, e.g. fullscreen & then use dev.size() to get the sizes for width & height, or just use good values for width and height when you export to make it look good (full screen is probably not a good idea as what fullscreen is depends on people's system). Like in my other answer to your question, I used my export package, as then you can also easily export to other formats (e.g. Powerpoint or pdf or svg, so vector format, which is better quality than bitmap png), and it also works for base R or lattice graphs.

Load data :

df_rate_flat <- structure(
  list(
    pair = c(
      "0841_0851_Mandaic",
      "0843_0850_Mandaic",
      "0846_0855_Mandaic",
      "0849_0856_Mandaic",
      "084A_084D_Mandaic",
      "0853_0857_Mandaic",
      "10332_10338_Gothic",
      "10334_10340_Gothic",
      "10336_10348_Gothic",
      "1033A_10342_Gothic",
      "1033B_1034A_Gothic",
      "10345_10347_Gothic",
      "10380_10397_Ugaritic",
      "10381_1038B_Ugaritic",
      "10382_1039C_Ugaritic",
      "10386_10398_Ugaritic",
      "10388_1039D_Ugaritic",
      "10389_1038C_Ugaritic",
      "109A5_109AA_MeroiticCursive",
      "109A9_109B2_MeroiticCursive",
      "109AC_109B3_MeroiticCursive",
      "109AD_109AE_MeroiticCursive",
      "109AF_109B5_MeroiticCursive",
      "109B0_109B4_MeroiticCursive",
      "110A_1164_Hangul",
      "110B_116B_Hangul",
      "1112_1175_Hangul",
      "1169_116E_Hangul",
      "116A_116F_Hangul",
      "116D_1172_Hangul",
      "1683_168B_Ogham",
      "1685_168C_Ogham",
      "1687_168D_Ogham",
      "1689_168A_Ogham",
      "168E_168F_Ogham",
      "1695_1696_Ogham",
      "16AD1_16AE7_BassaVah",
      "16ADA_16AE4_BassaVah",
      "16ADC_16AE9_BassaVah",
      "16ADD_16ADE_BassaVah",
      "16ADF_16AE8_BassaVah",
      "16AE1_16AE2_BassaVah",
      "1761_1762_Tagbanwa",
      "1763_176C_Tagbanwa",
      "1764_1768_Tagbanwa",
      "1765_1770_Tagbanwa",
      "1769_176E_Tagbanwa",
      "176A_176F_Tagbanwa",
      "1A05_1A0A_Buginese",
      "1A07_1A12_Buginese",
      "1A08_1A13_Buginese",
      "1A0C_1A0F_Buginese",
      "1A10_1A15_Buginese",
      "1A14_1A16_Buginese",
      "A805_A807_SylotiNagri",
      "A810_A812_SylotiNagri",
      "A811_A813_SylotiNagri",
      "A814_A822_SylotiNagri",
      "A818_A81C_SylotiNagri",
      "A819_A81B_SylotiNagri"
    ),
    Script = c(
      "Mandaic",
      "Mandaic",
      "Mandaic",
      "Mandaic",
      "Mandaic",
      "Mandaic",
      "Gothic",
      "Gothic",
      "Gothic",
      "Gothic",
      "Gothic",
      "Gothic",
      "Ugaritic",
      "Ugaritic",
      "Ugaritic",
      "Ugaritic",
      "Ugaritic",
      "Ugaritic",
      "MeroiticCursive",
      "MeroiticCursive",
      "MeroiticCursive",
      "MeroiticCursive",
      "MeroiticCursive",
      "MeroiticCursive",
      "Hangul",
      "Hangul",
      "Hangul",
      "Hangul",
      "Hangul",
      "Hangul",
      "Ogham",
      "Ogham",
      "Ogham",
      "Ogham",
      "Ogham",
      "Ogham",
      "BassaVah",
      "BassaVah",
      "BassaVah",
      "BassaVah",
      "BassaVah",
      "BassaVah",
      "Tagbanwa",
      "Tagbanwa",
      "Tagbanwa",
      "Tagbanwa",
      "Tagbanwa",
      "Tagbanwa",
      "Buginese",
      "Buginese",
      "Buginese",
      "Buginese",
      "Buginese",
      "Buginese",
      "SylotiNagri",
      "SylotiNagri",
      "SylotiNagri",
      "SylotiNagri",
      "SylotiNagri",
      "SylotiNagri"
    ),
    average.rate = c(
      6.54444444444444,
      6.5,
      5.80555555555556,
      3.44444444444444,
      3.49444444444444,
      5.78888888888889,
      6.75,
      6.65555555555556,
      6.93333333333333,
      3.53888888888889,
      6.32777777777778,
      5.58333333333333,
      4.08888888888889,
      4.77222222222222,
      5.24444444444444,
      6.37777777777778,
      5.83888888888889,
      5.03333333333333,
      6.36666666666667,
      3.52777777777778,
      6.36666666666667,
      6.37222222222222,
      6.81111111111111,
      6.44444444444444,
      6.72222222222222,
      6.92222222222222,
      6.76111111111111,
      2.35555555555556,
      2.99444444444444,
      2.4,
      6.38333333333333,
      5.97777777777778,
      5.71111111111111,
      2.14444444444444,
      2.05,
      6.1,
      2.97777777777778,
      6.43888888888889,
      3.71111111111111,
      6.22222222222222,
      6.73333333333333,
      6.78333333333333,
      6.51666666666667,
      6.71111111111111,
      3.03888888888889,
      6.31666666666667,
      2.71111111111111,
      5.6,
      6.31666666666667,
      5.91111111111111,
      3.66666666666667,
      5.68333333333333,
      2.33888888888889,
      3.16666666666667,
      6.11111111111111,
      5.41111111111111,
      2.11666666666667,
      4.91111111111111,
      2.00555555555556,
      5.50555555555556
    ),
    average.hamming = c(
      0.73,
      0.87,
      0.13,
      0.13,
      0.13,
      0.73,
      0.77,
      0.69,
      0.69,
      0.15,
      0.15,
      0.15,
      0.17,
      0.56,
      0.56,
      0.61,
      0.17,
      0.11,
      0.13,
      0.13,
      0.63,
      0.13,
      0.75,
      0.63,
      0.76,
      0.76,
      0.71,
      0.1,
      0.1,
      0.1,
      0.69,
      0.69,
      0.77,
      0.15,
      0.15,
      0.15,
      0.14,
      0.76,
      0.14,
      0.14,
      0.81,
      0.81,
      0.78,
      0.78,
      0.22,
      0.89,
      0.22,
      0.22,
      0.75,
      0.83,
      0.17,
      0.75,
      0.25,
      0.25,
      0.7,
      0.09,
      0.04,
      0.65,
      0.09,
      0.7
    )
  ),
  class = c("grouped_df", "tbl_df", "tbl", "data.frame"),
  row.names = c(NA,-60L),
  groups = structure(
    list(
      pair = c(
        "0841_0851_Mandaic",
        "0843_0850_Mandaic",
        "0846_0855_Mandaic",
        "0849_0856_Mandaic",
        "084A_084D_Mandaic",
        "0853_0857_Mandaic",
        "10332_10338_Gothic",
        "10334_10340_Gothic",
        "10336_10348_Gothic",
        "1033A_10342_Gothic",
        "1033B_1034A_Gothic",
        "10345_10347_Gothic",
        "10380_10397_Ugaritic",
        "10381_1038B_Ugaritic",
        "10382_1039C_Ugaritic",
        "10386_10398_Ugaritic",
        "10388_1039D_Ugaritic",
        "10389_1038C_Ugaritic",
        "109A5_109AA_MeroiticCursive",
        "109A9_109B2_MeroiticCursive",
        "109AC_109B3_MeroiticCursive",
        "109AD_109AE_MeroiticCursive",
        "109AF_109B5_MeroiticCursive",
        "109B0_109B4_MeroiticCursive",
        "110A_1164_Hangul",
        "110B_116B_Hangul",
        "1112_1175_Hangul",
        "1169_116E_Hangul",
        "116A_116F_Hangul",
        "116D_1172_Hangul",
        "1683_168B_Ogham",
        "1685_168C_Ogham",
        "1687_168D_Ogham",
        "1689_168A_Ogham",
        "168E_168F_Ogham",
        "1695_1696_Ogham",
        "16AD1_16AE7_BassaVah",
        "16ADA_16AE4_BassaVah",
        "16ADC_16AE9_BassaVah",
        "16ADD_16ADE_BassaVah",
        "16ADF_16AE8_BassaVah",
        "16AE1_16AE2_BassaVah",
        "1761_1762_Tagbanwa",
        "1763_176C_Tagbanwa",
        "1764_1768_Tagbanwa",
        "1765_1770_Tagbanwa",
        "1769_176E_Tagbanwa",
        "176A_176F_Tagbanwa",
        "1A05_1A0A_Buginese",
        "1A07_1A12_Buginese",
        "1A08_1A13_Buginese",
        "1A0C_1A0F_Buginese",
        "1A10_1A15_Buginese",
        "1A14_1A16_Buginese",
        "A805_A807_SylotiNagri",
        "A810_A812_SylotiNagri",
        "A811_A813_SylotiNagri",
        "A814_A822_SylotiNagri",
        "A818_A81C_SylotiNagri",
        "A819_A81B_SylotiNagri"
      ),
      .rows = structure(
        list(
          1L,
          2L,
          3L,
          4L,
          5L,
          6L,
          7L,
          8L,
          9L,
          10L,
          11L,
          12L,
          13L,
          14L,
          15L,
          16L,
          17L,
          18L,
          19L,
          20L,
          21L,
          22L,
          23L,
          24L,
          25L,
          26L,
          27L,
          28L,
          29L,
          30L,
          31L,
          32L,
          33L,
          34L,
          35L,
          36L,
          37L,
          38L,
          39L,
          40L,
          41L,
          42L,
          43L,
          44L,
          45L,
          46L,
          47L,
          48L,
          49L,
          50L,
          51L,
          52L,
          53L,
          54L,
          55L,
          56L,
          57L,
          58L,
          59L,
          60L
        ),
        ptype = integer(0),
        class = c("vctrs_list_of",     "vctrs_vctr", "list")
      )
    ),
    class = c("tbl_df", "tbl", "data.frame"),
    row.names = c(NA,-60L),
    .drop = TRUE))

Make plots & export :

library(tidyverse)
library(ggrepel)
library(export)

x11() # open graphics window
# now maximize this window so it is full screen

for (s in script <- unique(df_rate_flat$Script))  {
  p <-  df_rate_flat %>% filter(Script == s) %>% 
    ggplot(aes(x = average.rate, y = average.hamming, color = Script)) +
    geom_point(size = 3) +
    geom_text_repel(aes(label = pair), nudge_x = 0.2, nudge_y = 0.2, size = 6) +
    theme_bw() +
    theme(legend.position = "none", 
          plot.background = element_blank(),
          plot.title = element_text(hjust = 0.5),
          axis.text = element_text(color = "black", size = 14),
          axis.line = element_line(color = "black")
    ) +
    ggtitle(s)
  print(p)
  graph2png(file=paste0("Graphiques/plot_point_", s, ".png"),
         width = dev.size(units="px")[[1]]/90, # for me fullscreen is 17.06667
         height = dev.size(units="px")[[2]]/90, # for me fullscreen is 8.588889
         dpi = 900)
  # or graph2pdf, graph2ppt, graph2svg to export to other formats
  dev.off() # close window 
}

enter image description here

Tom Wenseleers
  • 7,535
  • 7
  • 63
  • 103
  • I don't get the same picture but it's better when I run the code with my laptop screen (instead of an additional screen) – Julien Jun 18 '23 at 09:11
  • Well if I were you I would just specify the correct desired width and height when you export so that your code will run the same on any computer... That's what I always do... If this solves your problem can you check it as the correct solution? Also that other one for which you awarded a bounty? – Tom Wenseleers Jun 18 '23 at 09:21