Consigo adicionar rótulos à janela principal do folheto, mas não consigo descobrir como adicionar um rótulo à janela do mapa de inserção. Veja o exemplo abaixo:
library(leaflet)
main_map_with_labels <- leaflet() %>%
addTiles() %>%
setView(lng = -121.2722, lat = 38.1341, zoom = 10) %>%
addMiniMap(
tiles = providers$OpenStreetMap) %>%
addLabelOnlyMarkers(lng = -121.2722, lat = 38.1341,
label = "Lodi") # I want to add this label to the inset
main_map_with_labels
Gostaria de usar um mapa diferente em addMiniMap() do que na janela principal do folheto. Como posso fazer isso? Por exemplo, quero exibi-lo CartoDB.Positronna janela principal e Esri.NatGeoWorldMapna janela addMiniMap.
leaflet() |>
addProviderTiles(providers$CartoDB.Positron) %>%
setView(lng = 13.4, lat = 52.52, zoom = 14) %>%
addMiniMap(width = 150, height = 180, "topleft") %>%
addProviderTiles(providers$Esri.NatGeoWorldMap)
Tentei usar a addMiniMapfunção natGeoWorldMap dentro, mas não obtive sucesso.
É possível adicionar marcas de escala de retícula e coordenadas ao redor das bordas de um leafletgráfico? Algo como a captura de tela abaixo, mas com valores de lon/lat incluídos? Procurei online, mas não encontrei uma solução.
map <- leaflet() %>%
addTiles() %>%
setView(lng = -118.88, lat = 38.1341, zoom = 8) #|>
#addCoordinates()
map
Como posso adicionar um controle de bússola ao meu mapa? Costumava haver uma função chamada addControlCompassem leaflet.extras, eu acredito, mas não existe mais. Alguém sabe como adicionar uma bússola ou uma seta indicando north up?
library(leaflet)
library(leaflet.extras)
# Create a basic Leaflet map
map <- leaflet() %>%
addTiles() %>%
setView(lng = -121.2722, lat = 38.1341, zoom = 10)
# Add a scale bar and compass to the map
map <- map %>%
addScaleBar(position = "bottomleft", options = scaleBarOptions(maxWidth = 100, metric = TRUE, imperial = FALSE)) %>%
addControlCompass(position = "topright", options = compassOptions())
map
Posso inserir o Rlogo.png em ambos os lados da página usando  \hspace{3 in} No entanto, não consigo encontrar a maneira de inserir o Rlogo.png ao lado do título do PDF. Gostaria que o logotipo estivesse nos lados esquerdo e direito do título na primeira página. Alguém pode ajudar com isso, por favor. Código abaixo:
---
title: "Shiny Installation here"
output:
pdf_document:
toc: yes
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
## Software
 \hspace{3 in} 
Mr. Tony Moore
West Coast Products
5555 Club Drive
Houston, Texas
Subject: Business meeting.
Dear Mr. Moore:
This letter is in response to our meeting on July 31, 2015
## Download R packages
To download packages using R, type the following command:
## Run the shiny application
To run the application..........
Veja a captura de tela abaixo:
Estou tentando desabilitar a caixa de seleção se a aba 'Uno' estiver selecionada, mas habilitá-la se a aba 'Dos' estiver selecionada. Como posso fazer isso no servidor com um evento?
library(shiny)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
checkboxInput("myCheckbox", "Enable me", value = FALSE)
),
mainPanel(
tabsetPanel(id = "myTabs",
tabPanel("Uno", value = "tab1", "This is tab Uno"),
tabPanel("Dos", value = "tab2", "This is tab Dos")
)
)
),
)
server <- function(input, output, session) {
session$onSessionEnded(function() {
stopApp()
})
}
shinyApp(ui, server)
Estou tentando fazer um gráfico de barras, no entanto, está imprimindo várias linhas em cada barra. Entendo que talvez eu tenha que agregar, mas se eu fizer isso, preciso manter as colunas originais porque preciso preencher algumas delas. Pergunta: Como posso me livrar das linhas horizontais em cada barra? Exemplo abaixo:
x <- structure(list(SampleDate = structure(c(19738, 19744, 19744,
19746, 19746, 19747, 19749, 19753, 19754, 19758, 19758, 19758,
19758, 19758, 19759, 19759, 19759, 19760, 19761, 19761, 19762,
19763, 19765, 19765, 19766, 19766, 19766, 19767, 19767, 19767,
19770, 19770, 19771, 19771), class = "Date"), Survey = c("early",
"late", "late", "late", "late", "late", "early", "late", "late",
"late", "late", "late", "late", "late", "late", "early", "early",
"early", "early", "early", "late", "late", "late", "late", "late",
"late", "late", "late", "early", "early", "early", "early", "early",
"early"), LifeStage = c("Adult", "Adult", "Adult", "Adult", "Adult",
"Adult", "Adult", "Adult", "Adult", "Adult", "Juvenile", "Adult",
"Adult", "Adult", "Adult", "Adult", "Adult", "unkLifeStage",
"Juvenile", "unkLifeStage", "Adult", "Adult", "Adult", "unkLifeStage",
"Adult", "unkLifeStage", "Adult", "unkLifeStage", "unkLifeStage",
"Adult", "unkLifeStage", "Juvenile", "unkLifeStage", "Juvenile"
), numb_fish = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), year = c(2024,
2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024,
2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024,
2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024, 2024
), month = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)), row.names = c(NA,
-34L), class = c("tbl_df", "tbl", "data.frame"))
x
x$SampleDate <- as.Date(x$SampleDate,"%m/%d/%Y")
x <- x |> mutate(month = floor_date(SampleDate, "month"))
ggplot(x, aes(x = month, y = numb_fish, fill = LifeStage)) +
geom_bar(stat = "identity", color = 'black') +
labs(title = "Monthly Data",
y = "Total") +
scale_x_date(date_breaks = "1 month", date_labels = "%b-%y")
Abaixo está o gráfico que estou recebendo. Preciso me livrar dessas linhas irritantes.
Só queria saber se alguém pode me ajudar com isso. Eu tenho esse pequeno aplicativo brilhante para ilustração: Eu chamei o aplicativo abaixotest
---
title: "test"
output: html_document
date: "`r Sys.Date()`"
runtime: shiny
---
```{r, echo=FALSE}
selectInput(
'Runs', label = 'Run:',
choices = c("W", "S", "L", "F"), selected = "F", multiple = TRUE
)
selectInput(
'Years', label = 'Year:',
choices = c(2012, 2013), selected = 2012, multiple = TRUE
)
sliderInput(inputId = "Yearslider",
label = "Years to plot",
#sep = "",
min = as.Date("2012-01-01"),
max = as.Date("2013-04-10"), #This dataset only has data up to 2013-04-08
step = 30,
value = c(as.Date("2012-01-09"), as.Date("2012-01-13")))
```
Funciona como esperado se eu o executar clicando na Run Documentopção no Rstudio. No entanto, se eu o executar manualmente digitando: render("test.rmd", "html_document")meu controle de entrada deslizante desaparece e se transforma em uma caixa de entrada como um controle retangular e meus dois primeiros controles perdem sua largura e se tornam realmente estreitos. O que estou perdendo?
Estou tentando escrever uma função para estimar intervalos de confiança em torno da média. Quero estimar intervalos por wkou monthusando pdcomo meu var, no entanto, depois de tentar por um tempo, estou obtendo NAs para todos os meus wke além disso, a função ignora o monthe retorna wkapenas por. Alguém poderia apontar o que estou fazendo errado? O que devo group_by dentro da função para poder alternar entre wke monthao usar a cifunção? Dados e código abaixo:
x <- structure(list(wk = c(1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2,
2, 3, 3, 3, 3, 3, 3), month = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1), xd = c(0.0370098838217444, 0.0391215970961887,
0.0409865246890313, NA, NA, NA, NA, 0.015188, 0.007513, 0.012716,
0.013962, 0.014259, 0.023553, 0.032122, 0.03953, 0.028946, 0.030769,
0.030815, 0.029187, 0.022604), td = c(0.02701157274146, 0.0284158620689655,
0.0296560389182058, NA, NA, NA, NA, 0.0125, 0.007396, 0.010856,
0.011685, 0.011882, 0.018063, 0.023761, 0.028687, 0.021649, 0.022861,
0.022892, 0.021809, 0.017432), pd = c(317.308439683869, 0, 126.719553152898,
NA, NA, NA, NA, 2671.6, 3540.6976744186, 1270.35740604274, 1067.69362430466,
688.099646524154, 317.444499806234, 420.941879550524, 280.475476696762,
250.681324772507, 159.048160622895, 258.125109208457, 450.868907331836,
0), year = c(2007, 2007, 2007, 2007, 2007, 2007, 2007, 2007,
2007, 2007, 2007, 2007, 2007, 2007, 2007, 2007, 2007, 2007, 2007,
2007)), class = "data.frame", row.names = c(NA, -20L))
x
library(tidyverse)
ci <- function(dat, by, var, conf.int = 0.90,...) {
dat <- na.omit(dat)
dat %>%
group_by(wk) %>% #Should I group by wk here?
do(data.frame(rbind(smean.cl.normal(.$var, conf.int = conf.int))))
}
ci(dat = x, by = month, var = pd) # Returns NAs
Posso encontrar o caminho para R usando Sys.getenv()assim:
Sys.getenv("R_HOME")
[1] "C:/PROGRA~1/R/R-41~1.1"
No entanto, estou tentando encontrar o R_HOME com a Environfunção do Excel VBA com uma sub-rotina mais ou menos assim:
Sub findR()
Dim a As String
a = Environ$("R_HOME")
MsgBox a
End Sub
A caixa de mensagem retorna vazia. R_HOME está no ambiente, mas por algum motivo Environnão consegue encontrá-lo. Veja uma captura de tela anexada mostrando R_HOME no ambiente. Alguém poderia me indicar a direção certa para encontrar R_HOME com Environ VBA?
Estou recebendo uma mensagem de erro ao tentar adicionar linhas de grade secundárias ao usar scale_x_discrete. Como posso fazer isso?
library(tidyverse);library(scales)
data:
w_dat <- structure(list(IDWeek = c(1, 32, 33, 34, 35, 36, 37, 38, 39,
42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52), race = c("W", "W",
"W", "W", "W", "W", "W", "W", "W", "W", "W", "W", "W", "W", "W",
"W", "W", "W", "W", "W"), FishPassage = c(3102, 8, 115, 197,
334, 1184, 67350, 80494, 351200, 1113, 217242, 1927, 219973,
104983, 85756, 66239, 75423, 140612, 33838, 10152)), class = c("tbl_df",
"tbl", "data.frame"), row.names = c(NA, -20L))
#WORKS without minor gridlines
ggplot(winter_dat,aes(x=factor(IDWeek),y=FishPassage, fill=race)) + geom_bar(stat='identity', show.legend=FALSE) + theme_bw(base_size = 9) + xlab("Week") +
facet_grid(race~. , scales = "free_y") + scale_fill_brewer(palette = "Set1") + scale_y_continuous(labels=comma) +
scale_x_discrete(limits = factor(1:52), breaks = seq(1,52,3))
#Trying to add minor gridlines throws an error
ggplot(winter_dat,aes(x=factor(IDWeek),y=FishPassage, fill=race)) + geom_bar(stat='identity', show.legend=FALSE) + theme_bw(base_size = 9) + xlab("Week") +
facet_grid(race~. , scales = "free_y") + scale_fill_brewer(palette = "Set1") + scale_y_continuous(labels=comma) +
scale_x_discrete(limits = factor(1:52), breaks = seq(1,52,3), minor_breaks = seq(1,52, 1))
I get this error:
Error in discrete_scale(c("x", "xmin", "xmax", "xend"), "position_d", :
unused argument (minor_breaks = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52))
Estou tentando adicionar uma coluna ao meu conjunto de dados com floor_date. Se o mês tiver 31 dias quero selecionar 16 dias, caso contrário, divido um mês de 30 dias em dois de 15 dias, mas estou recebendo um erro. Considere o pequeno conjunto de dados:
library(tidyverse)
a <- structure(list(StartDate = structure(c(17774, 17773, 17772, 17771,
17770, 17769, 17768, 17767, 17766, 17765, 17764, 17763, 17762,
17761, 17760, 17759, 17758, 17757, 17756, 17755, 17754, 17753,
17752, 17751, 17750, 17749, 17748, 17747, 17746, 17745, 17744,
17651, 17650, 17649, 17648, 17647, 17646, 17645, 17644, 17643,
17642, 17641, 17640, 17639, 17638, 17637, 17636, 17635, 17634,
17633, 17632, 17631, 17630, 17629, 17628, 17627, 17626, 17625,
17624, 17623, 17622, 17562, 17561, 17560, 17559, 17558, 17557,
17556, 17555, 17554, 17553, 17552, 17551, 17550, 17549, 17548,
17547, 17546, 17545, 17544, 17543, 17542, 17541, 17540, 17539,
17538, 17537, 17536, 17535, 17534, 17533, 17532), class = "Date"),
Minimum = c(6.306, 6.636, 5.745, 6.102, 7.895, 7.895, 5.847,
6.484, 5.847, 6.788, 6.458, 7.87, 7.795, 7.87, 8.767, 8.618,
6.585, 7.293, 7.645, 8.717, 9.188, 8.841, 8.643, 8.369, 8.02,
7.645, 7.77, 7.142, 8.02, 8.891, 9.114, 0.577, 0.439, 0.329,
-0.032, -0.004, 0.024, 0.079, 0.687, 0.19, 0.797, 1.071,
1.208, -0.004, 0.163, 1.344, 1.044, 1.017, 0.051, 0.55, 1.317,
0.522, 0.163, 0.797, 1.507, 2.128, 2.262, 1.208, -0.004,
0.384, 0.687, -0.032, 0.66, 0.989, 1.044, 0.439, -0.032,
-0.032, 0.024, -0.06, 0.163, -0.032, -0.032, 0.384, 0.163,
0.024, -0.032, -0.06, 0.301, 0.742, -0.032, -0.032, 0.495,
1.48, 0.495, 0.163, 0.962, -0.004, -0.004, -0.032, -0.032,
-0.032), month = c("August", "August", "August", "August",
"August", "August", "August", "August", "August", "August",
"August", "August", "August", "August", "August", "August",
"August", "August", "August", "August", "August", "August",
"August", "August", "August", "August", "August", "August",
"August", "August", "August", "April", "April", "April",
"April", "April", "April", "April", "April", "April", "April",
"April", "April", "April", "April", "April", "April", "April",
"April", "April", "April", "April", "April", "April", "April",
"April", "April", "April", "April", "April", "April", "January",
"January", "January", "January", "January", "January", "January",
"January", "January", "January", "January", "January", "January",
"January", "January", "January", "January", "January", "January",
"January", "January", "January", "January", "January", "January",
"January", "January", "January", "January", "January", "January"
)), class = "data.frame", row.names = c(NA, -92L))
#This works but floor_date is applied to every month, however, it fails with the conditional statement below:
a <- a %>% mutate(new = lubridate::floor_date(as.Date(paste(StartDate)), '16 days'))
a
#Fails
m <- c('January','August')
if(lubridate::month %in% m) { #January and August
a %>% mutate(new = lubridate::floor_date(as.Date(paste(StartDate)), '16 days'))
} else { #April
a %>% mutate(new = lubridate::floor_date(as.Date(paste(StartDate)), '15 days'))
}
Error in match(x, table, nomatch = 0L) :
'match' requires vector arguments
Alguém poderia me mostrar como posso ordenar a seguinte tabela GT por ano, mês, semana e SampleDate? Gostaria que o ano mais recente estivesse no topo da tabela, que neste caso é 2013. Exemplo e captura de tela abaixo:
library(dplyr)
library(tidyr)
library(gt)
a <- structure(list(SampleDate = structure(c(15710, 15713, 15713,
15710, 15710, 15713, 15713, 15710, 15708, 15713, 15712, 15708,
15708, 15713, 15712, 15708), class = "Date"), year = c("2012",
"2013", "2013", "2012", "2013", "2013", "2013", "2013", "2013",
"2012", "2013", "2013", "2013", "2013", "2013", "2013"), F = c(0,
1, 0, 0, 0, 1, 0, 0, 0, 22, 0, 0, 0, 65, 0, 0), W = c(0, 0, 1,
0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0), S = c(0, 0, 0, 0, 1,
0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0), LF = c(1, 0, 0, 1, 0, 0, 0,
1, 0, 0, 0, 0, 1, 0, 0, 1), week = c("01", "02", "02", "01",
"01", "02", "02", "01", "01", "02", "02", "01", "01", "02", "02",
"01"), month = c("January", "January", "January", "January",
"January", "January", "January", "January", "January", "January",
"January", "January", "January", "January", "January", "January"
)), row.names = c(NA, -16L), class = "data.frame")
a |>
mutate(SampleDate = as.character(SampleDate)) |>
group_by(year, month, week, SampleDate) |>
summarise(across(c(W, F, LF, S), sum)) |>
gt() |>
summary_rows(
columns = -SampleDate,
fns = list(label = "Total", fn = "sum"))
Como pivot_wider este pequeno conjunto de dados? Quero colocar a corrida como cabeçalho de coluna com cada contagem, mas por um motivo desconhecido, ela coloca todas as contagens em uma lista. Também recebendo o aviso abaixo:
library(tidyverse)
a <- structure(list(Count = c(1, 1, 3, 1, 2, 1, 2, 1, 3, 1, 1, 2,
2, 1, 3, 3, 3, 5, 3, 3), race = c("L", "F", "W", "F", "F", "LF",
"F", "F", "F", "F", "F", "F", "F", "S", "F", "F", "F", "F", "F",
"F"), year = c("2012", "2013", "2013", "2013", "2013", "2013",
"2013", "2012", "2013", "2013", "2012", "2013", "2013", "2013",
"2013", "2013", "2013", "2013", "2013", "2013")), row.names = c(NA,
20L), class = "data.frame")
a
Count race year
1 1 L 2012
2 1 F 2013
3 3 W 2013
4 1 F 2013
5 2 F 2013
6 1 LF 2013
7 2 F 2013
8 1 F 2012
9 3 F 2013
10 1 F 2013
11 1 F 2012
12 2 F 2013
13 2 F 2013
14 1 S 2013
15 3 F 2013
16 3 F 2013
17 3 F 2013
18 5 F 2013
19 3 F 2013
20 3 F 2013
a %>% pivot_wider(names_from = race, values_from = Count)
# A tibble: 2 x 6
year L F W LF S
<chr> <list> <list> <list> <list> <list>
1 2012 <dbl [1]> <dbl [2]> <NULL> <NULL> <NULL>
2 2013 <NULL> <dbl [14]> <dbl [1]> <dbl [1]> <dbl [1]>
Warning message:
Values from `Count` are not uniquely identified; output will contain list-cols.
* Use `values_fn = list` to suppress this warning.
* Use `values_fn = {summary_fun}` to summarise duplicates.
* Use the following dplyr code to identify duplicates.
{data} %>%
dplyr::group_by(year, race) %>%
dplyr::summarise(n = dplyr::n(), .groups = "drop") %>%
dplyr::filter(n > 1L)
EDITADO: Resultado esperado
year L F W LF S
2012 1 1 0 0 0
2012 0 1 0 0 0
2013 0 1 3 1 0
2013 0 1 0 0 0
2013 ... ... ... ... ...
2013 ... ... ... ... ...
2013 ... ... ... ... ...
2013 0 3 0 0 0
2013 ... ... ... ... ...