小编use*_*029的帖子

将夏令时更改为 R 中的标准时间

我正在尝试将当地时间(美国山区时区)转换为 UTC。R 似乎在从 MDT 到 MST 的过渡方面做了一些奇怪的事情。这个切换不是应该在当地时间凌晨 2 点发生吗?就我而言,R 在凌晨 1:10 执行此操作(请参见下面的输出)。我的时代被定义为POSIXct系列。

> subdata$Date[11:15]
[1] "2008-11-02 00:55:00 MDT" "2008-11-02 01:00:00 MDT" "2008-11-02
01:05:00 MDT" "2008-11-02 01:10:00 MST" "2008-11-02 01:15:00 MST"

five_min_data$Date <- as.POSIXct(as.character  
(five_min_data$Date),tz="America/Denver")
Run Code Online (Sandbox Code Playgroud)

任何关于我可能做错的事情的帮助将不胜感激。

timezone posix r dst

5
推荐指数
0
解决办法
509
查看次数

如何更改主面板中每个 tabPanel 的 sidebarPanel

我想开发一个布局类似于闪亮画廊(https://shiny.rstudio.com/gallery/radiant.html)中的Radiant的应用程序。在该应用程序中,sidebarPanel 会针对 mainPanel 中存在的每个 tabPanel 进行更改。这是如何实现的?此图显示了我的布局,我希望侧边栏面板(现在为空)根据用户选择的选项卡(元数据、原始数据、QC 数据)进行更改。有人知道如何执行此操作吗?或者您能给我指出 Radiant 应用程序中的 ui 代码所在的位置吗?

在此输入图像描述

编辑:收到下面的答案后,我将代码编辑为如下所示,而不是将侧边栏放入新函数中。然而,它还没有发挥作用。不应该吗?还有什么问题吗?

    ui <- navbarPage(title = "SD Mesonet Quality Control", id = "navbarPage",
                     tabPanel(title = 'Data',
                              sidebarLayout(
                                sidebarPanel(
                                  conditionalPanel(condition="input.tabselected == 1",
                                                   actionButton('bt','button Tab 1')
                                  ),
                                  conditionalPanel(condition="input.tabselected == 2",
                                                   selectInput('select','choice',choices=c("A","B"))
                                  )
                                ),
                                mainPanel(
                                  tabsetPanel(type = "tabs", id = "tabselected",
                                              tabPanel("Instrumentation", value = 1, plotOutput("plot")),
                                              tabPanel("Metadata", value = 2, plotOutput("plot"))
                                  )
                                )
                              ),
                     )
    )
    
    
    server <- function(input,output){
      
    }
    
    shinyApp(ui,server)
Run Code Online (Sandbox Code Playgroud)

r shiny

5
推荐指数
1
解决办法
2182
查看次数

使用 facet wrap 映射 R 中的不同状态

我试图在 ggplot2 中使用 facet_wrap 将不同的状态映射到多面图的每个方面。我的代码在此处列出,其中“dataset”是一个数据框,其中包含一个名为“state”的变量,其中包含我希望通过 facet 映射的不同状态的名称。

library(maps)
library(ggplot2)

states <- c('Oklahoma','Arizona','Washington','North     
Dakota','Michigan','Florida')

map <- ggplot(data=datatest) + geom_polygon(data=map_data
('state',region=datatest$state),aes
(x=long,y=lat,group=group),colour='black',fill='white') + 
facet_wrap(~state,ncol=3)
Run Code Online (Sandbox Code Playgroud)

我无法让每个方面都成为不同状态的地图。相反,每个方面都是整个美国的地图,上面显示六个列出的州。如果有人知道让这个工作的方法,其中每个方面本身都是不同的状态,我将不胜感激。我很确定这与在对 map_data 的调用中如何定义“区域”有关,但我尝试过的任何方法都不起作用。这可能无法完成,但我想我会看看是否有人有想法。谢谢!

r facet ggplot2 facet-wrap

3
推荐指数
1
解决办法
2011
查看次数

在 foreach 循环 R 中,NULL 值作为符号地址错误传递

我以前从未遇到过此问题,但是当我尝试在 R 中使用 foreach 循环时遇到此错误:“{ 中的错误:任务 1 失败 - “NULL 值作为符号地址传递”。

我几乎不可能生成一个小的、可重复的示例(我已经尝试过!),因为我试图从巨大的栅格中提取数据并从该数据创建 csv 文件。但是,这是我的代码。

bi_2021 <- rast('G:\\GridMet_Yearly\\bi_2021.nc')

cl <- makeCluster(2)
registerDoParallel(cl)

r = 1
foreach (r=1:10, .packages = c('tidyverse','lubridate')) %dopar% {
  rc <- row_char[r]
  cc <- col_char[r]
  ce <- cell_char[r]
  rn <- row_num[r]
  cn <- col_num[r]
  fname <- paste0('G:/GridMet_Cells_RawData/row',rc,'_col',cc,'_cell',ce,'.csv')

  data_df <- data.frame(read_csv(fname, show_col_types = FALSE)) # read previous data in
  data_df <- data[which(year(data$Date) < 2021),]

  # add rows for 2021 daily data
  data_df[15342:15673,] <- NA
  data_df$Date[15342:15673] <- seq(as.Date('2021-01-01'),as.Date('2021-11-28'),'days')
  data_df$bi[15342:15673] <- …
Run Code Online (Sandbox Code Playgroud)

foreach r doparallel terra

3
推荐指数
1
解决办法
1426
查看次数

使用Python3和BeautifulSoup解析xml文件

我知道有关使用 Python 3 解析 xml 的问题有几个答案,但我找不到两个答案。我正在尝试从 BoardGameGeek xml 文件中解析和提取信息,如下所示(它太长了,无法粘贴到此处):

\n\n

https://www.boardgamegeek.com/xmlapi/boardgame/10

\n\n

1)我无法从这两行中提取主要游戏名称:

\n\n
<name sortindex="1" primary="true">Elfenland</name>\n<name sortindex="1">Elfenland (\xd0\x92\xd0\xbe\xd0\xbb\xd1\x88\xd0\xb5\xd0\xb1\xd0\xbd\xd0\xbe\xd0\xb5 \xd0\x9f\xd1\x83\xd1\x82\xd0\xb5\xd1\x88\xd0\xb5\xd1\x81\xd1\x82\xd0\xb2\xd0\xb8\xd0\xb5)</name>\n
Run Code Online (Sandbox Code Playgroud)\n\n

2)我在提取数据列表时也遇到问题,例如在这个xml中:

\n\n
<poll title="User Suggested Number of Players" totalvotes="96"  name="suggested_numplayers">\n    <results numplayers="1">\n        <result numvotes="0" value="Best"/>\n        <result numvotes="0" value="Recommended"/>\n        <result numvotes="58" value="Not Recommended"/>\n    </results>\n    <results numplayers="2">\n        <result numvotes="2" value="Best"/>\n        <result numvotes="21" value="Recommended"/>\n        <result numvotes="53" value="Not Recommended"/>\n    </results>\n    <results numplayers="3">\n        <result numvotes="10" value="Best"/>\n        <result numvotes="46" value="Recommended"/>\n        <result numvotes="17" value="Not Recommended"/>\n    </results>\n        <results numplayers="4">\n        <result numvotes="47" value="Best"/>\n        <result numvotes="36" value="Recommended"/>\n        <result numvotes="1" …
Run Code Online (Sandbox Code Playgroud)

xml beautifulsoup python-3.x

2
推荐指数
1
解决办法
6964
查看次数

标签 统计

r ×4

beautifulsoup ×1

doparallel ×1

dst ×1

facet ×1

facet-wrap ×1

foreach ×1

ggplot2 ×1

posix ×1

python-3.x ×1

shiny ×1

terra ×1

timezone ×1

xml ×1