Plot peptide intensities of protein as a function of the sample and factor

plot_hierarchies_line(
  res,
  proteinName,
  config,
  separate = FALSE,
  show.legend = FALSE
)

Arguments

res

data.frame

proteinName

title of plot

config

AnalysisConfiguration

separate

if heavy and light show in one plot or with separate y axis?

Examples



istar <- sim_lfq_data_peptide_config()
#> creating sampleName from fileName column
#> Warning: no nr_children column specified in the data, adding column nr_children and setting to 1.
#> completing cases
config <- istar$config
analysis <- istar$data

xnested <- analysis |>
 dplyr::group_by_at(config$table$hierarchy_keys_depth()) |> tidyr::nest()

prolfqua::plot_hierarchies_line(xnested$data[[1]], xnested$protein_Id[[1]],config )
#> Warning: Removed 7 rows containing missing values or values outside the scale range
#> (`geom_point()`).
#> Warning: Removed 1 row containing missing values or values outside the scale range
#> (`geom_line()`).


bb <- prolfqua_data('data_skylineSRM_HL_A')
conf <- bb$config_f()
analysis <- bb$analysis(bb$data, conf)
#> creating sampleName from fileName column
#> Warning: no nr_children column specified in the data, adding column nr_children and setting to 1.
#> completing cases

nest <- analysis |> dplyr::group_by(conf$table$hierarchy_keys_depth()) |> tidyr::nest()
prolfqua::plot_hierarchies_line(nest$data[[1]],
                                  "DUM",
                                  conf,
                                  separate = TRUE)
#> Warning: Removed 802 rows containing missing values or values outside the scale range
#> (`geom_point()`).
#> Warning: Removed 462 rows containing missing values or values outside the scale range
#> (`geom_line()`).

prolfqua::plot_hierarchies_line(nest$data[[1]],
"DUM",
conf,
separate = TRUE,
show.legend = TRUE)
#> Warning: Removed 802 rows containing missing values or values outside the scale range
#> (`geom_point()`).
#> Warning: Removed 462 rows containing missing values or values outside the scale range
#> (`geom_line()`).