主页 / 问题

问题[r]

Martin Hope
Akalit
Asked: 2022-08-28 18:17:06 +0000 UTC
  • 0

不知道怎么排列页面上的元素，让tabBox在box下面（文件上传），table占据了右边的所有空间

编码

fluidRow(
      box(width = 3,
        fileInput(NS(id,"file"), "Загрузить файл", 
        buttonLabel = 'Загрузить', placeholder = 'Файл не выбран')),

      box(width = 9,dataTableOutput(NS(id,'outTable'))),
      
      tabBox(width = 3,
        tabPanel('column',
        useShinyjs(),
        hidden(checkboxGroupInput(NS(id,"select_column"),'Колонки', choices = ''))),
        tabPanel('drop',h2('drop value in table'))
      )
    )

期望的结果

r shiny
Martin Hope
Akalit
Asked: 2022-08-20 22:33:36 +0000 UTC
  • 0

ORA - 12560当我尝试连接到安装在 VM 上的 Oracle DB 时出现错误。

sql*plus, pl/sql, excel - 连接成功

R 中的连接代码：

con <- dbConnect(odbc::odbc(), driver ='Oracle in instantclient_19_14',
dns = "user", encoding = "windows-1251",PWD ="qazedcwsx")
#--- output Error: nanodbc/nanodbc.cpp:1021: IM006: [Oracle][ODBC][Ora]ORA-12560: TNS:protocol adapter error

sql*plus 我只有在密码后面写才能连接@sid，这种方法在 R 中不起作用

r
Martin Hope
Akalit
Asked: 2022-07-23 17:56:46 +0000 UTC
  • 0

这里有张桌子

DF <- tibble(
  CLIENT = c(1,1,1,2,2,2,3,3,3),
  N_DOG = c('N1','N2','N3','N4','N5','N6','N7','N8','N9'),
  DT = as.Date(c('01.06.2021','12.07.2021','04.05.2021',
                 '03.08.2021','21.07.2021','04.01.2022',
                 '07.04.2021','09.11.2021','08.12.2021'), format = '%d.%m.%Y'),
  RANK = c(1,1,2,3,1,1,2,2,3)
)
客户 N_DOG DT 秩
一 N1 2021-06-01 一
一 N2 2021-07-12 一
一 N3 2021-05-04 2
2 N4 2021-08-03 3
2 N5 2021-07-21 一
2 N6 2022-01-04 一
3 N7 2021-04-07 2
3 N8 2021-11-09 2
3 N9 2021-12-08 3

您需要根据以下标准为每个客户找到一份合同：

  1. 查找具有最低等级的合同
  2. 如果有多个这样的合同，我们选择最后一个。

PS。根据上述条件，输出必须是唯一的客户和 1 个合约

执行


MIN_RANK <- DF %>% 
  select(CLIENT, RANK) %>% 
  group_by(CLIENT) %>% 
  filter(RANK == min(RANK)) %>% 
  ungroup() %>% 
  distinct()

MIN_RANK %>% 
  inner_join(DF, by = c('CLIENT','RANK')) %>% 
  select(!c(N_DOG,RANK)) %>% 
  group_by(CLIENT) %>% 
  filter(DT == max(DT)) %>% 
  inner_join(DF, by = c('CLIENT','DT'))

决赛

客户 DT N_DOG 秩
一 2021-07-12 N2 一
2 2022-01-04 N6 一
3 2021-11-09 N8 2

怎样才能更快地完成这个动作？[可能已经有写功能]
论坛上有一个类似的SQL

r
Martin Hope
Диана
Asked: 2022-07-11 17:36:29 +0000 UTC
  • 1

我制作了一个图表，其中根据参数 a 的值用不同的颜色标记点，在图表上我需要保存样本（点）的名称。同时，在图表图例的符号中，我需要指示颜色的方块。但是相反，在图例的符号中，我得到了正确颜色的“a”图标，这看起来相当荒谬。

日程

我附上程序代码：

library(ggplot2)

my_data <- data.frame(Sample=c(1:12),a=NA,x = runif(12, 0, 2),y =runif(12,0,1))
my_data$a[1:3] <- 0.25; my_data$a[4:6] <- 0.5; my_data$a[7:9] <- 0.75; my_data$a[10:12] <- 1

ggplot(data=my_data, aes(x=x, y=y,label=Sample, color=as.factor(a))) +
  geom_text() +
  theme_bw() +
  scale_color_manual(name="a =",labels=c("0.25", "0.5","0.75","1"),values = c("red3","forestgreen","darkblue","orange"))

如何用小方块/圆圈替换“a”图标？

提前致谢！

r
Martin Hope
Akalit
Asked: 2022-06-13 21:22:13 +0000 UTC
  • 0

使用该功能时，bind_cols我在控制台中收到一条消息，指出某些列已被重命名。

如何禁用到控制台的输出新名称：...？

尝试禁用警告消息 - options(warn = -1)

但它没有给出任何结果。

r