Bachi Shashikadze's questions

Como posso criar uma apresentação do PowerPoint com apresentação em quarto, com dois gráficos lado a lado, e incluir texto descritivo na parte inferior de cada slide (como mostrado na captura de tela)? O problema é que o texto está aparecendo no segundo slide em vez de na parte inferior dos gráficos no mesmo slide.

---
title: "iris Presentation"
format: pptx
---
parts of the code are from: https://github.com/quarto-dev/quarto-cli/discussions/2403 
```{r, include=FALSE}
library(tidyverse)

# Create histogram for each species
spec_name <- unique(iris$Species)

make_hist <- function(spec) {
  iris |> 
    filter(Species == spec) |> 
    ggplot(aes(x = Petal.Length)) +
    geom_histogram(bins = 10, fill = "steelblue", color = "white") +
    labs(title = paste("Petal Length Histogram -", spec))
}

list_hist <- map(spec_name, make_hist)

# Create a second set of plots (random scatter plots)
make_random_plot <- function() {
  tibble(x = rnorm(50), y = rnorm(50)) |> 
    ggplot(aes(x, y)) +
    geom_point(color = "darkorange") +
    labs(title = "Random Scatter Plot")
}

list_random <- map(spec_name, ~ make_random_plot())

# Combine into a data frame
df <- tibble(spec = spec_name, 
             plot1 = list_hist, 
             plot2 = list_random)
```

```{r}
#| output: asis
res <- pmap_chr(df, \(spec, plot1, plot2) {
  knitr::knit_child(text = c(
    paste0("## ", spec, " - Summary"),
    
    "```{r}",
    "#| echo: false",
    "#| layout-ncol: 2",
    "plot1",
    "plot2",
    "```",
    
    "",
    
    paste("This slide shows the distribution of Petal Length for", spec,
          "alongside a comparison scatter plot of random values.")
  ), envir = environment(), quiet = TRUE)
})
cat(res, sep = '\n')
```

Saída desejada:

Estou tentando construir um gráfico Sankey com três camadas em R usando o pacote plotly (plotly_4.10.2). Embora as conexões da origem ao destino pareçam razoáveis ​​a partir dos dados de "links", o próprio gráfico exibe as conexões incorretamente.

Por exemplo, "example.data" -> Gene3-Treatment- Catogory2 é exibido como Gene3-Treatment- Category1 , Connections for Gene8 também está errado. Devo fazer alguma reorganização dos rótulos antes de plotar?

Captura de tela do enredo

library(plotly)

# this is an example data

example.data <- data.frame(
  genes = c("Gene1", "Gene2", "Gene3", "Gene4", "Gene5", "Gene6", "Gene7", "Gene8", "Gene9"),
  conditions = c("Control", "Control", "Treatment", "Treatment", "Treatment", "Treatment", "Treatment", "Treatment", "Treatment"),
  category = c("Category1", "Category1", "Category2", "Category2", "Category2", "Category2", "Category2", "Category1", "Category2")
)

nodes <- data.frame(name = unique(c(as.character(example.data$genes),
                                    as.character(example.data$conditions),
                                    as.character(example.data$category))))

links <- data.frame(source = match(example.data$genes, nodes$name) - 1,
                    target = match(example.data$conditions, nodes$name) - 1,
                    stringsAsFactors = FALSE)

links <- rbind(links,
               data.frame(source = match(example.data$conditions, nodes$name) - 1,
                          target = match(example.data$category, nodes$name) - 1,
                          stringsAsFactors = FALSE))


plotly::plot_ly(
  type = "sankey",
  domain = list(x =  c(0,1),
                y =  c(0,1)),
  orientation = "h",
  customdata = nodes$name,
  node = list(
    label = nodes$name,
    pad = 15,
    thickness = 15,
    line = list(color = "black",
                width = 0.5)),
  link = list(source = links$source,
              target = links$target,
              value =   rep(1, nrow(links))
  ))