PSII QEDA Workflow

PS II qEDA

You can add options to executable code like this

install.packages("tidyverse", repos = "https://cran.r-project.org")

Installing package into '/home/jmorris/R/x86_64-pc-linux-gnu-library/4.4'
(as 'lib' is unspecified)

install.packages("plotly", repos = "https://cran.r-project.org")

Installing package into '/home/jmorris/R/x86_64-pc-linux-gnu-library/4.4'
(as 'lib' is unspecified)

install.packages("DataExplorer", respos = "https://cran.r-project.org")

Installing package into '/home/jmorris/R/x86_64-pc-linux-gnu-library/4.4'
(as 'lib' is unspecified)

library(tidyverse)

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.4     ✔ readr     2.1.5
✔ forcats   1.0.0     ✔ stringr   1.5.1
✔ ggplot2   3.5.2     ✔ tibble    3.2.1
✔ lubridate 1.9.3     ✔ tidyr     1.3.1
✔ purrr     1.0.4     

── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(plotly)

Attaching package: 'plotly'

The following object is masked from 'package:ggplot2':

    last_plot

The following object is masked from 'package:stats':

    filter

The following object is masked from 'package:graphics':

    layout

library(DataExplorer)

PSII <- PSII_qEDA <- read_csv("PSII qEDA.csv")

New names:
Rows: 458 Columns: 5
── Column specification
──────────────────────────────────────────────────────── Delimiter: "," chr
(4): GRANT_ID, TextColumns, TextResponse, category dbl (1): ...1
ℹ Use `spec()` to retrieve the full column specification for this data. ℹ
Specify the column types or set `show_col_types = FALSE` to quiet this message.
• `` -> `...1`

category.count <- table(PSII$GRANT_ID, PSII$category) %>% as.data.frame() %>%
  filter(Freq > 0)

category.count <- category.count %>%
  rename(Category = Var1, Grantee = Var2) 

old.par <- par(mar = c(1, 1, 1, 1))
par(old.par)

g4 <- ggplot(category.count, aes(Category, factor(Grantee), colour = Grantee)) +
  geom_point() + coord_fixed() 

g4 + theme(axis.title.x = element_blank(), axis.ticks = element_blank())