R图中的偶轴

我已经搜索了一点，但我找不到实现我的轴心国目标的方法。这里有两个问题

如何保证主刻度之间的间距相同？如果这意味着一些点重叠，那么就这样吧

是否有方法将缩放/日期范围控件添加到此图表？数据从2013年到现在，并不断增加

2.b。如果我这样做，有没有一种方法可以让它在你缩小的时候自动开始按周、按月、按年调整？当然，情况正好相反

以下是您可以获取数据的位置：

以下是当前图表的图像：

请注意，我这样做是为了学习R，因此，任何错误的建议也非常感谢。以下是生成此代码的代码：

#Graphics Visualizations Package
library("ggvis") 
#Adds %>% forward pipe operator
library("magrittr") 
#adds grouping and manipulations
library("dplyr")
#adds data fiendlyness stuffs
library("tidyr")
library("shiny")
library("checkpoint")

checkpoint("2016-03-29")

rData <- read.csv("C:\\data\\Miami_311.csv", 
                 header=TRUE, 
                 sep=",")
rDSamp <- rData[sample(1:length(rData$Case.Owner), 1000),]

#Convert to known date time
rDSamp$Ticket.Created.Date...Time <- 
  rDSamp$Ticket.Created.Date...Time %>%
  as.POSIXct(format="%m/%d/%Y") %>%
  as.character()

FilterDateRange = function(data, feature, minDate, maxDate) {
  minDate = minDate %>% 
          as.POSIXct(format="%m/%d/%Y") %>% 
          as.character() 
  maxDate = maxDate %>% 
          as.POSIXct(format="%m/%d/%Y") %>% 
          as.character() 
  result = subset(data, data[feature] <= maxDate)
  subset(result, result[feature] >= minDate)
}

d <- rDSamp %>% 
  FilterDateRange("Ticket.Created.Date...Time", "1/1/2013", "12/31/2013")    %>%
  group_by(Ticket.Created.Date...Time, Case.Owner) %>%
  summarise(
    count = n()
  ) %>%
  arrange(Ticket.Created.Date...Time) 

xAxisValues = "1/1/2013" %>%
            as.Date(format="%m/%d/%Y") %>%
            as.character() %>%
            as.Date() %>%
            seq(by = "1 months", length.out = 12)

d %>%
  ggvis(~Ticket.Created.Date...Time, ~count) %>%
  layer_points(fill = ~Case.Owner) %>%
  add_tooltip(function(data){ 
    paste("Owner:", data$Case.Owner, "<br>","Date:",     data$Ticket.Created.Date...Time)
    }, "hover") %>%
  add_axis("x", 
       title = "Date",
       values = xAxisValues, 
       ticks = 365,
       properties = axis_props(
       majorTicks = list(strokeWidth = 2)))

#图形可视化软件包
图书馆（“ggvis”）
#添加%>%正向管道操作符
图书馆（“magrittr”）
#添加分组和操作
图书馆（“dplyr”）
#将数据添加到文件中
图书馆（“tidyr”）
图书馆（“闪亮”）
图书馆（“检查点”）
检查点（“2016-03-29”）
rData%
as.POSIXct（format=“%m/%d/%Y”）%%>%
as.character（）
maxDate=maxDate%>%
as.POSIXct（format=“%m/%d/%Y”）%%>%
as.character（）
结果=子集（数据，数据[特征]=minDate）
}
d%
FilterDaterRange（“票证创建日期…时间”，“2013年1月1日”，“2013年12月31日”）%>%
分组依据（票证.已创建.日期…时间，案例.所有者）%>%
总结(
计数=n（）
) %>%
安排（票证。已创建。日期…时间）
xAxisValues=“1/1/2013”%>%
截止日期（格式=“%m/%d/%Y”）%>%
as.character（）%>%
as.Date（）%>%
seq（by=“1个月”，长度=12）
d%>%
ggvis（~Ticket.Created.Date…Time，~count）%>%
图层点（填充=~Case.Owner）%>%
添加工具提示（函数（数据）{
粘贴（“所有者：”，数据$Case.Owner，“
”，“日期：”，数据$Ticket.Created.Date…Time）
}，“悬停”）%>%
添加_轴（“x”，
title=“日期”，
值=x x值，
滴答声=365，
属性=轴/支柱(
majorTicks=列表（strokeWidth=2）））