Dotchart (in base R) or equivalent in ggplot2 with grouped data-CodePudding

I'm unable to find a way to plot data by group in a dotchart (or any equivalent plot type in ggplot2). The sample data looks like this, with the grouping variable being Turn_no:

df
# A tibble: 8 × 4
# Groups:   Turn_no [4]
  c5    Turn_no Word       RelPosition
  <chr>   <int> <chr>            <dbl>
1 NN1         9 daddy            0.111
2 NN2         9 apartments       0.778
3 NN1        13 job              1    
4 NN1        15 bit              0.167
5 NP0        15 mark             0.667
6 NP0        16 michael          0.222
7 NN1        16 gel              0.778
8 NN1        16 morning          1

What I want to do is plot RelPosition values grouped by Turn_no so that there are as many dots per line as there are RelPosition values per Turn_no group.

My attempt at combining dplyr syntax with (base R) dotchart fails:

libtary(tidyverse)
df %>%
  group_by(Turn_no) %>%
  dotchart(RelPosition)
Error in dotchart(., RelPosition) : 
  'x' must be a numeric vector or matrix

All I can do is this, which however puts each RelPosition value on its own line irrespective of its group:

dotchart(df$RelPosition)

How can the grouped dot plot be achieved, either in base R or, perhaps better still, in ggplot2 (geom_dotplot doesn't seem to be equivalent to dotchart)?

Data:

df <- structure(list(c5 = c("NN1", "NN2", "NN1", "NN1", "NP0", "NP0", 
                            "NN1", "NN1"), Turn_no = c(9L, 9L, 13L, 15L, 15L, 16L, 16L, 16L
                            ), Word = c("daddy", "apartments", "job", "bit", "mark", "michael", 
                                        "gel", "morning"), RelPosition = c(0.111111111111111, 0.777777777777778, 
                                                                           1, 0.166666666666667, 0.666666666666667, 0.222222222222222, 0.777777777777778, 
                                                                           1)), class = c("grouped_df", "tbl_df", "tbl", "data.frame"), row.names = c(NA, 
                                                                                                                                                      -8L), groups = structure(list(Turn_no = c(9L, 13L, 15L, 16L), 
                                                                                                                                                                                    .rows = structure(list(1:2, 3L, 4:5, 6:8), ptype = integer(0), class = c("vctrs_list_of", 
                                                                                                                                                                                                                                                             "vctrs_vctr", "list"))), row.names = c(NA, -4L), class = c("tbl_df", 
                                                                                                                                                                                                                                                                                                                        "tbl", "data.frame"), .drop = TRUE))

CodePudding user response：

Something like this?

library(ggplot2)

df <- structure(list(c5 = c(
  "NN1", "NN2", "NN1", "NN1", "NP0", "NP0",
  "NN1", "NN1"
), Turn_no = c(9L, 9L, 13L, 15L, 15L, 16L, 16L, 16L), Word = c(
  "daddy", "apartments", "job", "bit", "mark", "michael",
  "gel", "morning"
), RelPosition = c(
  0.111111111111111, 0.777777777777778,
  1, 0.166666666666667, 0.666666666666667, 0.222222222222222, 0.777777777777778,
  1
)), class = c("grouped_df", "tbl_df", "tbl", "data.frame"), row.names = c(
  NA,
  -8L
), groups = structure(list(
  Turn_no = c(9L, 13L, 15L, 16L),
  .rows = structure(list(1:2, 3L, 4:5, 6:8), ptype = integer(0), class = c(
    "vctrs_list_of",
    "vctrs_vctr", "list"
  ))
), row.names = c(NA, -4L), class = c(
  "tbl_df",
  "tbl", "data.frame"
), .drop = TRUE))



df |>
  ggplot(aes(y = Turn_no, x = RelPosition, group = Turn_no))  
  geom_line()  
  geom_point(size = 4)

^{Created on 2023-01-07 by the}