小编Bri*_*ian的帖子

我有 Springboot 项目，我想在其中记录我的 API：

这是正在处理的 Web 服务的示例：

    @ApiResponses(
        value = {
                @ApiResponse(responseCode = "200", content =  @Content(
                        mediaType = "*/*",
                        schema = @Schema(implementation = Object.class),
                        examples = {
                                @ExampleObject(name = "boo",
                                summary = "example of boo",
                                ref = "#/swagger/Planner/semi_planif_200_response.json")
                        }

                ))
        }
)
@PostMapping(value = "/startSemiPlanification", produces = "application/json")
private ResponseEntity<Object> startSemiPlanner( @RequestBody PlanificationDto planificationData,
                                                @RequestParam(name = "groupByUserCode", required = false) Optional<Boolean> groupByUserCode,
                                            @RequestParam(name = "range", defaultValue = "18") Integer range

我的问题是 Swagger 无法解析此引用 ref = "#/swagger/Planner/semi_planif_200_response.json" 我什至尝试过使用绝对路径，但它不起作用：

这是文件路径：

我在R使用中的DiagrammeR's export_graph函数将图形导出为PDF时遇到问题RStudio。

下面的示例重现该问题。PDF的生成不一致，因此有时根本没有。

我收到的错误消息是在下面的代码片段中调用export_graph。

我在Windows 10上使用RStudio版本1.1.463和R 3.5.2。

“ \ <” unknown“>”：1919791：无效的asm.js：函数定义与使用不匹配“

library(data.tree)
library(yaml)
library(DiagrammeR)
library(DiagrammeRsvg)

fileName <- system.file("extdata", "jennylind.yaml", package="data.tree")
cat(readChar(fileName, file.info(fileName)$size))
lol <- yaml.load_file(fileName)
jl <- as.Node(lol)
pic <- ToDiagrammeRGraph(jl)
render_graph(pic)
export_graph(pic, "C:/Tmp/plot.pdf", file_type = "pdf")

有没有办法查看 R 中的库被下载了多少次？或者说有多少问题。我担心的是 R 库缺乏安全性。

我想使用ggplot和stat_contour为的两类数据显示等高线图facet_grid。我想根据数据突出显示特定级别。这是一个使用常规volcano数据的类似虚拟示例。

library(dplyr)
library(ggplot2)    
v.plot <- volcano %>% reshape2::melt(.) %>% 
      mutate(dummy = Var1 > median(Var1)) %>% 
      ggplot(aes(Var1, Var2, z = value)) + 
      stat_contour(breaks = seq(90, 200, 12)) + 
      facet_grid(~dummy)

情节1：

假设在每个因子水平（我想是东半和西半）内，我想找到火山的平均高度并将其显示出来。我可以手动计算：

volcano %>% reshape2::melt(.) %>% 
  mutate(dummy = Var1 > median(Var1)) %>% 
  group_by(dummy) %>% 
  summarise(h.bar = mean(value))

# A tibble: 2 × 2
  dummy    h.bar
  <lgl>    <dbl>
1 FALSE 140.7582
2  TRUE 119.3717

这告诉我，每半部分的平均高度分别为141和119。我可以在两个面上都画出这两个高度，而不仅仅是在每侧上画出适当的高度。

v.plot + stat_contour(breaks = c(141, 119), colour = "red", size …

这类似于这个dplyr滞后帖,这个dplyr变异延迟发布,但是这些都没有问这个关于默认为输入值的问题.我正在使用dplyr来改变一个新字段,该字段是另一个字段的滞后偏移量(我已转换为POSIXct).目标是,对于给定的ip,我想知道一些关于它在我的列表中显示的所有时间之间的增量的汇总统计数据.我也有大约1200万行.

数据看起来像这样(在变异之前)

ip             hour         snap
192.168.1.2    2017070700    0
192.168.1.2    2017070700   15
192.168.1.4    2017070700    0
192.168.1.4    2017070701   45
192.168.1.4    2017070702   30
192.168.1.7    2017070700   15

'hour'是一个整数,但应该是一个时间戳.

'snap'是4个'快照'值之一,代表15分钟的增量.

这是data.frame创建代码:

test <- data.frame(ip=c("192.168.1.2","192.168.1.2","192.168.1.4","192.168.1.4","192.168.1.4","192.168.1.7"), hour=c(2017070700,2017070700,2017070700,2017070701,2017070702,2017070700), snap=c(0,15,0,45,30,15))

每个ip有数百甚至数千个时间戳.下面的代码使用dplyr来

• a)用前导0填充0',
• b)将两个整数'date'字段连成一个字段,
• c)将合并的整数'date'字段转换为POSIX日期,
• d)通过ip组,
• e)将一个滞后于旧时间戳的新列变为1,如果该值为NA,则返回原始值(这就是"没有工作的位置"),以及
• f)改变一个新列,它取当前时间和前一个时间的差值(通过ip).

这些步骤参考每行末尾的注释.

timedelta <- test %>% 
  mutate(snap = formatC(snap, width=2, flag=0)) %>%                      # a) 
  mutate(fulldateint = paste(hour, snap, sep="")) %>%                    # b) 
  mutate(fulldate = as.POSIXct(strptime(fulldateint, "%Y%m%d%H%M"))) %>% # c) 
  group_by(ip) %>%                                                       # d) 
  mutate(shifted = dplyr::lag(fulldate, default=fulldate)) %>%           # …

我试图获得一个命名数字列表作为data.frame,以便更容易在ggplot2中绘图.我的列表看起来像这样:

dat <- list()
dat[[1]] <- c( 816, 609, 427, 426, 426, 419, 390, 353, 326, 301)
dat[[2]] <- c(96, 95, 94, 74, 66, 59, 51, 50, 43, 42)
dat[[3]] <- c(2219, 1742, 1689, 1590, 995, 823, 587, 562, 554, 535)
names(dat[[1]]) <-
    c("new york city", "new york times", "amazon services llc", "services llc amazon",
      "llc amazon eu", "couple weeks ago", "incorporated item pp", "two years ago",
      "new york n.y", "world war ii")
names(dat[[2]]) <-
    c("new york city", "president barack …

我正在尝试将样本大小添加到按两个级别分组的箱线图（最好在箱线图的顶部或底部）。我使用facet_grid()函数来生成面板图。然后，我尝试使用 annotate() 函数来添加样本大小，但这不起作用，因为它重复了第二个面板中的值。有没有一种简单的方法可以做到这一点？

head(FeatherData, n=10)\n    Location   Status   FeatherD               Species        ID\n## 1        TX Resident  -27.41495         Carolina wren CARW (32)\n## 2        TX Resident  -29.17626         Carolina wren CARW (32)\n## 3        TX Resident  -31.08070         Carolina wren CARW (32)\n## 4        TX Migrant  -169.19579 Yellow-rumped warbler YRWA (28)\n## 5        TX Migrant  -170.42079 Yellow-rumped warbler YRWA (28)\n## 6        TX Migrant  -158.66925 Yellow-rumped warbler YRWA (28)\n## 7        TX Migrant  -165.55278 Yellow-rumped warbler YRWA (28)\n## 8        TX Migrant  -170.43374 Yellow-rumped warbler YRWA (28)\n## 9        TX Migrant  -170.21801 Yellow-rumped …