小编Ran*_*ude的帖子

我想添加一个带有 unix 时间戳的列，以查看该行上次更改的时间。到目前为止，我只能弄清楚如何添加具有时间戳格式的列。

ALTER TABLE xyz.test ADD `insert_time` TIMESTAMP ON UPDATE CURRENT_TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP;

有没有使用 unix 时间戳的解决方案 - 像这样：

... INT ON UPDATE UNIX_TIMESTAMP() NOT NULL DEFAULT UNIX_TIMESTAMP();

更新：

类似的问题

据我了解，该线程仅显示如何手动向每一行添加 unix 时间戳。我想知道是否也可以自动执行此操作。

我有一个主data.table，有 364 行和 3 列：

Date        Weekday     Weight
2012-01-01  Monday      100
2013-01-02  Tuesday     200
...

和一个7 行 2 列的帮助data.table：

Weekday   Coefficient
Monday    0.91
Tuesday   0.84
Wednesday 0.99
...

现在我想在主 data.table 中创建第四列，其中包含基于工作日的“权重/系数”。

Weight_divided <- main[, Weight * help[Weekday==main$Weekday]$Coefficient]

结果如下：

Date        Weekday     Weight   Weight_divided
2012-01-01  Monday      100      91
2013-01-02  Tuesday     200      168
2012-01-03  Wednesday   300      297
2012-01-04  Thursday    400      256
2012-01-05  Friday      500      399
2012-01-06  Saturday    600      410
2012-01-07  Sunday      700      680
2012-01-08  Monday      300      NA     <--
2012-01-09 …

我尝试在 R 中使用 data.table 包的 group by 函数。

start <- as.Date('2014-1-1')
end <- as.Date('2014-1-6')
time.span <- seq(start, end, "days")
a <- data.table(date = time.span, value=c(1,2,3,4,5,6), group=c('a','a','b','b','a','b'))

        date  value group
1   2014-01-01  1   a
2   2014-01-02  2   a
3   2014-01-03  3   b
4   2014-01-04  4   b
5   2014-01-05  5   a
6   2014-01-06  6   b

a[,mean(value),by=group]
> group      V1
 1:   a    2.6667
 2:   b    4.3333

这工作正常。

由于我正在使用日期，因此可能会发生特殊日期不仅有一个组而且有两个组。

a <- data.table(date = time.span, value=c(1,2,3,4,5,6), group=list('a',c('a','b'),'b','b','a','b'))

        date   value  group
1   2014-01-01  1   a
2 …

如何ggplot2在某个点开始缩放轴.假设我们的范围从0到100,大多数值在1到10的范围内,一个值在100.

require('data.table')
require('ggplot2')

test <- data.table(x=1:10,y=c(seq(1,9),100))

ggplot(test, aes(x=x,y=y)) + geom_point(size=5)

我想创建一个y-scale从1 to 10 by 1之后和之后的图形,by 10因此值9和100之间的空间在图中变得"更小".

更新:

eipi10的方式非常适合我想要实现的目标.我正在努力的另一个细节.如何摆脱第二个传奇并在最终情节中保持正确的比例？

和情节的代码:

test <- data.table(x=1:10,y=c(seq(1,9),100))

p1 = ggplot(test, aes(x=x,y=y,color=x)) + 
  geom_point(size=5) +
  scale_x_continuous(limits=c(0,10)) +
  coord_cartesian(ylim=c(-0.1,10)) +
  scale_y_continuous(breaks=0:10) +
  theme(plot.margin=unit(c(0,0.5,0,0),"lines"))

p2 = ggplot(test, aes(x=x,y=y,color=x)) + 
  geom_point(size=5) + #geom_point(size=5,show.legend=FALSE) +
  scale_x_continuous(limits=c(0,10)) +
  coord_cartesian(ylim=c(40,110)) +
  scale_y_continuous(breaks=c(50,100)) +
  theme(plot.margin=unit(c(0,0.5,-0.5,0), "lines"),
       axis.title.x=element_blank(),
       axis.ticks.x=element_blank(),
       axis.text.x=element_blank(),
       legend.position="none") +
 labs(y="")

gA <- ggplotGrob(p1)
gB <- ggplotGrob(p2)
maxWidth = grid::unit.pmax(gA$widths[2:5], gB$widths[2:5])
gA$widths[2:5] <- as.list(maxWidth)
gB$widths[2:5] <- …

我正在尝试为使用单元格注释的工作表构建一个简单的日志。不知何故，我无法包含触发onEdit-event.

function onEdit(e){
    var email = Session.getActiveUser().getEmail();
    var date = String(Utilities.formatDate(new Date(), 'Europe/Berlin', 'HH:mm dd/MM/yy'));
    var range = e.range;
    range.setNote(email + " @ " + date);
}

注释出现在单元格上，但电子邮件是空的。这可能与缺少权限有关吗？我假设如果我的代码有问题，注释根本不会出现在工作表中编辑过的单元格上......

要验证 webhook，我需要从请求标头中获取参数。到目前为止，如果实际上可以在 Apps Scripts 中访问这些标头，我找不到任何信息。到目前为止唯一有效的是访问发布请求的正文。

function doPost(e) {
    // something like this
    var headerParam = e.headers['Content-Type'];
    // ...
}