Quinten's questions

Gostaria de colorir células condicionalmente com base em uma coluna diferente usando gto pacote. Tentei usar o rowsargumento para colorir condicionalmente, mas não funcionou. Aqui, tentei um exemplo reproduzível:

library(gt)
library(dplyr)
head(mtcars) %>%
  gt() %>%
  data_color(
    columns = cyl,
    rows = vs == 0,
    palette = c("red", "green")
  )

Saída:

Como você pode ver, a cor não está correta, assim como os outros valores. Deveria ser vermelho se vs for 0 e verde se vs for 1. Alguém sabe como podemos colorir condicionalmente esses valores com base em uma coluna diferente no gt?

Gostaria de criar um sankeydiagrama no Plotly R. Neste gráfico, gostaria de mostrar o fluxo de renda para o fluxo de resultados com uma barra de orçamento no meio, como mostrado na resposta aqui . Infelizmente, isso não é feito no Plotly. Tentei criar este gráfico, mas não entendo a estrutura de sourcee targetno pacote plotly. Aqui, crio um exemplo reproduzível:

library(plotly)

df <- data.frame(
  label = c("Income1", "Income2", "Income2", "Budget", "Outcome1", "Outcome1", "Outcome2"),
  color = c("green", "green", "green", "blue", "red", "red", "red"),
  source = c(1,2,2,0,3,3,4),
  target = c(0,0,0,0,0,0,0),
  value =  c(8,4,2,0,8,4,2)
)
df

fig <- plot_ly(
  type = "sankey",
  orientation = "h",
  node = list(
    label = df$label,
    color = df$color,
    pad = 15,
    thickness = 20,
    line = list(
      color = "black",
      width = 0.5
    )
  ),
  link = list(
    source = df$source,
    target = df$target,
    value =  df$value
  )
)

fig

Saída:

Isso não cria minha saída esperada. Eu gostaria de ter os fluxos de renda à esquerda, o orçamento no meio e o resultado à direita. Então, eu queria saber se alguém sabe como fazer isso no Plotly R?

Estou tentando usar polarsdataframe onde gostaria de selecionar a linha firste lastpor grupo. Aqui está um exemplo simples selecionando a primeira linha por grupo:

import polars as pl

df = pl.DataFrame(
    {
        "a": [1, 2, 2, 3, 4, 5],
        "b": [0.5, 0.5, 4, 10, 14, 13],
        "c": [True, True, True, False, False, True],
        "d": ["Apple", "Apple", "Apple", "Banana", "Banana", "Banana"],
    }
)
result = df.group_by("d", maintain_order=True).first()
print(result)

Saída:

shape: (2, 4)
┌────────┬─────┬──────┬───────┐
│ d      ┆ a   ┆ b    ┆ c     │
│ ---    ┆ --- ┆ ---  ┆ ---   │
│ str    ┆ i64 ┆ f64  ┆ bool  │
╞════════╪═════╪══════╪═══════╡
│ Apple  ┆ 1   ┆ 0.5  ┆ true  │
│ Banana ┆ 3   ┆ 10.0 ┆ false │
└────────┴─────┴──────┴───────┘

Isso funciona bem e podemos usar .lastpara fazer isso na última fileira. Mas como podemos combinar essas duas em uma group_by?

Gostaria de adicionar um botão que copia a entrada ou saída de um usuário em um painel do Quarto. Encontrei o shiny2clipboardque parece ser uma boa opção. Infelizmente, o código que estou tentando executar não copia o texto para a área de transferência dentro de um painel do Quarto. Quando você executa o código de exemplo do blog no link, ele funciona, mas não em um painel do Quarto. Aqui está um código reproduzível:

---
title: "Test"
format: dashboard
server: shiny
---

## Test

```{r}
library(shiny)
library(shinyCopy2clipboard)
```

```{r}
#| title: "Text that needs to copy to clipboard"

# Setup
  use_copy()

  # Text Input 1
  textInput("text", "Enter Your Text")

  # Copy Button 1
shinyCopy2clipboard::CopyButton(
    "copybtn",
    label = "Copy to clipboard",
    icon = icon("copy"),
    text = "No Text Found"
  )
```


```{r}
#| context: server
observe({

    req(input$copybtn)
  shinyCopy2clipboard::CopyButtonUpdate(session,
                     id = "copybtn",
                     label = "Copy to clipboard",
                     icon = icon("copy"),
                     text = input$text
    )

  })
```

Saída:

Como você pode ver na saída, eu tento copiar o texto do campo de entrada para minha área de transferência. Isso não funciona. Então, eu queria saber se alguém sabe como adicionar um botão para copiar texto para sua área de transferência dentro de um painel do Quarto?

Gostaria de remover alguns elementos vazios de um YAML em R. Elementos vazios podem ser mostrados como []em um yaml. Encontrei o ymlthispacote com a yml_discard(~is_yml_blank(.x))opção. Isso deve remover os elementos vazios do yaml, mas não funciona. Aqui está um exemplo reproduzível:

library(yaml)
library(ymlthis)
z <- yaml.load(
  "tree:
  format: newick
tracks:
  - class: colorstrip
    rel_height: []
    title: ")

y <- as.yaml(z)

y |>
  yml_discard(~is_yml_blank(.x))
#> ---
#> tree:
#>   format: newick
#> tracks:
#> - class: colorstrip
#>   rel_height: []
#>   title: null
#> ---

^{Criado em 2024-11-08 com reprex v2.1.1}

Como você pode ver, ele não remove os valores vazios. Minha saída esperada deve ser parecida com esta:

#> ---
#> tree:
#>   format: newick
#> tracks:
#> - class: colorstrip
#> ---

A saída esperada mostra que os elementos sem valor devem ser removidos. Então, eu queria saber se alguém sabe como remover elementos vazios em um arquivo YAML em R?

No Quarto podemos usar R inline codee parametersdo YAML. Gostaria de combiná-los. Aqui está um exemplo reproduzível para combinar código inline e parâmetros do YAML:

---
title: "Params in inline code"
format: html
params:
  alpha: 2
---
       
This value is `{r} params$alpha`

Saída:

Aparentemente isso não funciona. O valor dos parâmetros não aparece no código inline do documento. Os parâmetros funcionam em um pedaço de código, mas eu gostaria de usar isso em um código inline para manter o documento limpo. Então eu queria saber se alguém sabe como combinar parâmetros e código inline como acima em um documento Quarto?

No Quarto, temos a scrollingopção de Dashboards, que pode ser muito útil. Mas isso será aplicado a todas as páginas do seu dashboard. Eu gostaria de ter isso apenas em algumas páginas. Aqui, criei um exemplo simples e reproduzível:

---
title: "Scrolling"
format: 
  dashboard:
    scrolling: true 
---
       
# Page 1

```{r}
head(mtcars)
```

```{r}
plot(mtcars$mpg, mtcars$cyl)
```


# Page 2
    
```{r}
plot(mtcars$carb, mtcars$vs)
```

Na Página 1, a opção de rolagem é realmente útil, pois temos vários itens, mas na Página 2, não quero uma opção de rolagem porque não é necessária (este é um exemplo muito simples). Então, eu estava pensando em como podemos usar a opção de rolagem em apenas algumas páginas no Quarto Dashboards?

Quando queremos ter dois temas diferentes em um documento Quarto HTML, podemos usar um botão para alternar entre o modo claro e escuro, por exemplo. Padrão, o botão fica no canto superior direito do documento. Eu gostaria de ter este documento abaixo do toc do documento. Aqui está um código reproduzível:

---
title: "Change position theme button"
format: 
  html:
    toc: true
    theme: 
      light: default
      dark: darkly
---

## Chapter

Some text to make it reproducible

### Test

Saída:

Como você pode ver, o botão de troca de tema está no canto superior direito. Eu estava pensando em como podemos colocá-lo abaixo do toc?

Gostaria de criar um painel do Quarto onde meu bloco de chamada tem uma largura diferente da página. Agora ele usa a largura total da página, o que não é o que eu quero. Aqui está um código reproduzível:

---
title: "Test"
format: dashboard
---

# Test

<h1>This is an example!</h1> 

I'm trying to change the width of my callout-block below!

::: {.callout-note}
Note that there are five types of callouts, including:
`note`, `warning`, `important`, `tip`, and `caution`.
:::

Saída:

Como você pode ver, ele usa a largura total do painel. Mas eu gostaria de usar apenas 30% da largura, por exemplo. Tentei usar algum css como descrito aqui , mas não está funcionando para mim. Então, eu queria saber se alguém sabe como alterar a largura deste bloco de chamada em um painel do Quarto?

Estou tentando criar uma introdução no meu aplicativo shiny usando o rintrojspacote com a introjsfunção. Meu objetivo é criar uma introdução onde o primeiro botão próximo seja desabilitado por 5 segundos e tenha um rótulo diferente como 'Aguarde 5 segundos...'. Atualmente, ele espera 5 segundos e muda de rótulo, mas não é desabilitado durante os 5 segundos. Então você ainda pode clicar nele. Aqui está um exemplo reproduzível:

library(shiny)
library(rintrojs)

ui <- fluidPage(
  introjsUI(),
  actionButton("start_intro", "Start Intro"),
  h1("Welcome to the Shiny App"),
  p("This is some description of the app.")
)

server <- function(input, output, session) {
  
  steps <- reactive({
    data.frame(
      element = c(NA, "#start_intro"),
      intro = c("Welcome to the app! This first step has a custom button.",
                "This is the start button for the intro tour."),
      position = c("bottom", "bottom")
    )
  })
  
  observeEvent(input$start_intro, {
    introjs(session, 
            options = list(
              steps = steps(),
              nextLabel = "Wait 5 seconds..." 
            ),
            events = list(
              "onbeforechange" = I("
                if (this._currentStep === 0) {
                  var that = this;
                  var nextButton = document.querySelector('.introjs-nextbutton');
                  
                  if (nextButton) {
                    nextButton.innerHTML = 'Wait 5 seconds...';  // Initial label
                    nextButton.disabled = true;                  // Disable the button
                  }
                  
                  setTimeout(function() {
                    that._options.nextLabel = 'next'; // Change label after 5 seconds
                    that._introItems[0].nextLabel = 'next';
                    var nextButton = document.querySelector('.introjs-nextbutton');
                    if (nextButton) {
                      nextButton.innerHTML = 'next';  // Update the label to 'next'
                      nextButton.disabled = false;    // Enable the button after 5 seconds
                    }
                  }, 5000); // 5 seconds delay
                }
              ")
            )
    )
  })
}
 
shinyApp(ui = ui, server = server)

Saída:

Como você pode ver, ele cria o botão 'Aguarde 5 segundos...' que também é exibido por 5 segundos, mas não é desabilitado durante os 5 segundos. Então, eu estava pensando como podemos criar um botão que muda de rótulo após 5 segundos e é desabilitado durante os 5 segundos?

Eu gostaria de usar um gluedentro de um glue. Aqui eu criei um exemplo reproduzível simples:

library(glue)
l <- c("a", "b", "c")
input = list(a = "test1",
             b = "test2",
             c = "test3")

for (i in l) {
  print(glue("{input${i}}"))
}
#> Error:
#> ! Failed to parse glue component
#> Caused by error in `parse()`:
#> ! <text>:1:7: unexpected '{'
#> 1: input${
#>           ^

^{Criado em 05/08/2024 com reprex v2.1.0}

Isso retorna um erro porque queremos usar uma chave dentro de uma chave. Minha saída esperada deve ser assim:

test1
test2
test3

Porque eu gostaria que a cola ficasse usando as letras do vetor lpara imprimir os valores mencionados na lista input. Isso é basicamente input$aretorno test1.

Então eu queria saber se é possível usar cola dentro de uma cola em R?

Estou tentando executar um aplicativo Streamlit simples em meu ambiente conda. Quando estou executando o seguinte app.pyarquivo:

# Streamlit app
import streamlit as st

# 
prompt = st.chat_input("Say something")
if prompt:
    st.write(f"User has sent the following prompt: {prompt}")

Ele retorna o seguinte erro ao executar streamlit run app.py:

Traceback (most recent call last):
  File "/Library/Frameworks/Python.framework/Versions/3.9/lib/python3.9/site-packages/streamlit/runtime/scriptrunner/script_runner.py", line 556, in _run_script
    exec(code, module.__dict__)
  File "/Users/quinten/Documents/app.py", line 11, in <module>
    prompt = st.chat_input("Say something")
AttributeError: module 'streamlit' has no attribute 'chat_input'

Não entendo por que esse erro acontece. Usei a versão mais recente do Streamlit. Também não entendo por que o erro usa python3.9 enquanto uso 3.12 em meu ambiente. Eu verifico este blog , mas isso não ajuda, infelizmente. Então eu queria saber se alguém sabe por que isso acontece?

Estou usando as seguintes versões:

streamlit 1.30.0

E píton:

python --version
Python 3.12.0

Eu gostaria de usar after_stat(ndensity)para escalar para no máximo 1, como descrito aqui :

densidade after_stat(ndensity), dimensionada para um máximo de 1.

Quando usamos isso com uma fillestética, é claro que ele dimensiona cada um fillseparadamente, mas eu queria saber se é possível dimensionar after_statos dados completos para que todas as filldensidades sejam combinadas. Aqui está um exemplo reproduzível:

library(ggplot2)
ggplot(iris, aes(x = Sepal.Length, fill = Species)) +
  geom_density(aes(y = after_stat(ndensity)), alpha = 0.4)

^{Criado em 19/10/2023 com reprex v2.0.2}

Como esperado, as densidades são dimensionadas para no máximo 1. Mas gostaria de saber se alguém sabe como dimensionar o combinado, tendo as três densidades separadamente. Isso resultaria em apenas uma curva de densidade com valor máximo de 1. Poderíamos usar ggplot_buildpara modificar a camada, mas gostaria de saber se existe uma after_statúnica opção?

Gostaria de alterar o tamanho da fonte de uma parte de um layout de duas colunas no Quarto. Aqui está um código reproduzível sem alterar o tamanho da fonte:

---
output: revealjs
---

:::: {.columns}

::: {.column width="40%"}
Example list:

* unordered list
    + sub-item 1
    + sub-item 2
        - sub-sub-item 1
:::

::: {.column width="60%"}
![Here's an elephant](https://www.r-project.org/logo/Rlogo.png)
:::

::::

Saída:

Como você pode ver, isso funciona muito bem. O layout de duas colunas é bom. Imagine que eu queira alterar o tamanho da fonte da parte do texto (primeira coluna), poderíamos usar style="font-size: 50%;"para reduzir o tamanho da fonte assim:

:::: {.columns}

::: {.column width="40%" style="font-size: 50%;"}
Example list:

* unordered list
    + sub-item 1
    + sub-item 2
        - sub-sub-item 1
:::

::: {.column width="60%"}
![Here's an elephant](https://www.r-project.org/logo/Rlogo.png)
:::

::::

Saída:

Como você pode ver, o tamanho da fonte foi realmente reduzido, mas o layout não é o mesmo novamente. A imagem é movida mais para a esquerda. Então, eu queria saber se alguém sabe como reduzir o tamanho da fonte de uma coluna em um layout de duas colunas sem deslocar os itens?

Gostaria de encontrar o próximo valor por grupo com base no próximo número ordenado. No exemplo reproduzível a seguir no grupo 2, temos duas vezes o subgrupo 1, o que significa que para ambos os valores o próximo valor deve ser do subgrupo 2, que é 4. Aqui estão alguns dados reproduzíveis (df abaixo) dput:

> df
   group subgroup value
1      1        1     9
2      1        2     8
3      1        3     7
4      2        1     8
5      2        1     6
6      2        2     4
7      2        3     2
8      3        1     2
9      3        1     3
10     3        2     7
11     3        3     9 

Se tentarmos usá-lo com o próximo número de linha, obteremos, é claro, o valor errado como este:

library(dplyr)

df %>%
  group_by(group) %>%
  mutate(next_value = value[row_number()+1])
#> # A tibble: 11 × 4
#> # Groups:   group [3]
#>    group subgroup value next_value
#>    <dbl>    <dbl> <dbl>      <dbl>
#>  1     1        1     9          8
#>  2     1        2     8          7
#>  3     1        3     7         NA
#>  4     2        1     8          6
#>  5     2        1     6          4
#>  6     2        2     4          2
#>  7     2        3     2         NA
#>  8     3        1     2          3
#>  9     3        1     3          7
#> 10     3        2     7          9
#> 11     3        3     9         NA

Minha saída desejada deve ficar assim:

   group subgroup value next_value
1      1        1     9          8
2      1        2     8          7
3      1        3     7         NA
4      2        1     8          4
5      2        1     6          4
6      2        2     4          2
7      2        3     2         NA
8      3        1     2          7
9      3        1     3          7
10     3        2     7          9
11     3        3     9         NA

^{Criado em 24/08/2023 com reprex v2.0.2}

Então, eu queria saber se alguém sabe como obter o próximo valor ordenado por grupo usando R?

dputde df:

df <- structure(list(group = c(1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3), subgroup = c(1, 
2, 3, 1, 1, 2, 3, 1, 1, 2, 3), value = c(9, 8, 7, 8, 6, 4, 2, 
2, 3, 7, 9)), class = "data.frame", row.names = c(NA, -11L))