小编Joe*_*Joe的帖子

如何有效地在R中生成以下数字序列？4，5，10，11，16，17，...，178，179

我的目标是二除二 Presto 0.212 中的整数，例如 1/2。天真的方法SELECT 1/2返回 0。接下来，我尝试了SELECT CAST(1/2 AS DOUBLE)，但这也返回 0。如何除以 1/2 以便返回 0.5？

我有一个2000个子列表的列表,每个子列表有7个元素,每个元素都有相同的形式.这些元素中的第五个是具有40个元素的数字向量.我的目标是获得一个包含2000行和40列的数据框,其中每列代表2000个子列表的第五个元素中的40个元素之一.这是一个缩小的例子:

sub_list_1 <- list(a = c(1:5), b = "b")
sub_list_2 <- list(a = c(6:10), b = "b")
sub_list_3 <- list(a = c(11:15), b = "b")
top_list <- list(sub_list_1, sub_list_2, sub_list_3)

现在,假设我想要一个包含5列和3行的数据框,其中每列代表五个元素中的一个a,每行代表一个子列表.因此,输出应该是

 output
     [,1] [,2] [,3] [,4] [,5]
[1,]    1    2    3    4    5
[2,]    6    7    8    9   10
[3,]   11   12   13   14   15

我想将两个宽度相等的操作按钮居中，并在它们之间留出一些空间。所以我尝试：

library(shiny)

ui <- fluidPage(
  fluidRow(
    align = "center",
    br(),
    column(
      12,
      actionButton(
        inputId = "ab1",
        label = "Left button",
        style = "width:400px"
      ),
      actionButton(
        inputId = "ab2",
        label = "Right button",
        style = "width:400px"
      )
    ) # column 
  ) # fluidRow
) # fluidPage

server <- function(input, output) {}

shinyApp(ui, server)

这给出：

如何增加两个按钮之间的间距？关注Shiny - 如何增加内联单选按钮之间的间距？我尝试style = "width:400px; margin.left:200px"了右键，但这没有任何效果。

编辑：根据斯蒂芬的提议，我尝试了：

library(shiny)

ui <- fluidPage(
  fluidRow(
    align = "center",
    br(),
    column(
      6,
      actionButton(
        inputId = "ab1", …

我想将表格绘制为堆积的条形图，并用百分比标记条形。这是一个例子：

data <- matrix(c(34, 66, 22, 78), ncol = 2)
data <- as.table(data)
colnames(data) <- c("shop1", "shop2")
rownames(data) <- c("prod1", "prod2")

library(reshape2)
data_m <- melt(data, varnames = c("Product", "Shop"), id.vars = "Product")

library(scales)
library(ggplot2)
ggplot(data_m, aes(x = Shop, y = value, fill = Product)) + 
geom_bar(position = "fill", stat = "identity") + 
scale_y_continuous(labels = percent_format()) +
labs(x = "", y = "")

我试图用添加标签

geom_text(data = data_m, aes(x = Shop, y = value, 
                         label = paste0((value/100) * 100,"%")), size=4)

但这导致

编辑：随着JanLauGe的答案，我得到 …