MySQL抛出管道中断，MySQL服务器消失了错误。我的数据库表包含文本字段，我每隔1小时就会在其中插入大HTML。

我应该考虑设置哪个MySQL变量。

这是当前配置：

[mysqld]
datadir=/home/monk/mysql
socket=/home/monk/mysql/mysql.sock
user=mysql
default_time_zone='+06:00'
innodb_buffer_pool_size=35G
innodb_buffer_pool_instances=15
query_cache_type=ON
query_cache_size=64M
join_buffer_size=524288
tmp_table_size=32M
max_heap_table_size=32M  


# Disabling symbolic-links is recommended to prevent assorted security risks
symbolic-links=0
max_allowed_packet=1G
# Recommended in standard MySQL setup
sql_mode=NO_ENGINE_SUBSTITUTION,STRICT_TRANS_TABLES

wait_timeout = 2000
interactive_timeout = 2000



#bind-address=127.0.0.1
##skip-networking~   

下面的代码生成从左下角到右上角的热图

library(ggplot2)
library(reshape2)
set.seed(111)

n <- 10
m <- matrix(rnorm(n^2), n, n)
m <- cor(m)
m <- melt(m)

ggplot(m, aes(Var1, Var2, fill = value)) + 
    geom_tile()

如何修改我的数据（可能修改熔化结果），以便热图从左上角到右下角，对于这样的结果

我正在尝试使用dplyr和bigrquery从Big Query中的数据集中查询多个表.数据集包含多个表,一个表用于一年中每天的数据.我可以使用以下代码从单个表(例如,1天的数据)进行查询,但似乎无法一次跨多个表(例如,一个月或一年的数据).任何帮助将不胜感激.

connection <- src_bigquery("my_project", "dataset1")
first_day <- connection %>%
    tbl("20150101") %>% 
    select(field1) %>%
    group_by(field1) %>%
    summarise(number = n()) %>%
    arrange(desc(number))

谢谢,

胡安

示例:我有一个df,其中第一列是

dat <- c("A","B","C","A")

然后我在第一列中有另一个df:

dat2[, 1]
[1] A B C
Levels: A B C

dat2[, 2]
[1] 21000 23400 26800

如何将第二个df(dat2)中的值添加到第一个df(dat)？在第一个df中有重复,我希望每次有"A"时它会在新列中添加第二个df的相应值(21000).

我正在尝试使用tidyeval（非标准评估）围绕“ lm”编写一个函数。使用基本R NSE，它的工作原理是：

lm_poly_raw <- function(df, y, x, degree = 1, ...){
  lm_formula <-
    substitute(expr = y ~ poly(x, degree, raw = TRUE),
               env = list(y = substitute(y),
                          x = substitute(x),
                          degree = degree))
  eval(lm(lm_formula, data = df, ...))
}

lm_poly_raw(mtcars, hp, mpg, degree = 2)

但是，我还没有弄清楚如何使用tidyeval和编写此函数rlang。我认为substitute应该用代替enquo，并用代替!!。哈德利的Adv-R有一些提示，但我不知道。

我知道有很多类似的问题.但我不是一样的问!

我的问题是,我所看到的所有问题都是全年的生日,fx 04/05/1971(格式:%d /%m /%Y).

我的数据中的生日是丹麦的CPR号码(个人识别码),它们看起来像这样:

   ID
1901912222
0110841111
0404143333
1602032444

注意:这些日期就是例子.我有成千上万的行,它是所有年龄段的人,也超过100(但通常不超过17).

第1和第2个数字:出生日期第3个和第4个数字:出生月份第5个和第6个数字:出生年份最后4个=连续数字.

所以这给了我生日(和年龄):

   ID         birthdate      age
1901912222    19/09/91        26
0110841111    01/10/84        33
0404143333    04/04/14        103
1602024444    16/02/02        15

所以格式为:%d%m%y [4位数的连续数]

所以最后四位数(序号)也有一些信息.他们告诉这个人是3岁还是103岁(现在我没有这一年).有关说明,请参见图片:

我不知道是否有任何帮助,但我有Excel代码:

= YEAR(NOW()) - 1-IF(DATE(YEAR(NOW()); MID(D12; 3; 2); LEFT(D12; 2))<= NOW(); MID(D12; 5; 2 )+ IF(左(右(D12; 4); 1)*1 <= 3; 1900; IF(AND(LEFT(RIGHT(D12; 4); 1)*1 = 4; MID(D12; 5; 2 )*1 <= 36); 2000; IF(AND(LEFT(RIGHT(D12; 4); 1)*1 = 4; MID(D12; 5; 2)*1> = 37); 1900; IF(AND (左(右(D12; 4); 1)*1> …

我经常喜欢拟合并检查与R数据帧中的两个变量相关的多个模型.

我可以使用这样的语法来做到这一点:

require(tidyverse)
require(broom)
models <- list(hp ~ exp(cyl), hp ~ cyl)
map_df(models, ~tidy(lm(data=mtcars, formula=.x)))

但我习惯了管道语法,并希望能够像这样:

mtcars %>% map_df(models, ~tidy(lm(data=., formula=.x)))

这清楚地表明我正在"开始",mtcars然后对其进行操作以生成输出.但是这种语法不起作用,给出了错误Error: Index 1 must have length 1.

有没有办法以purrr:map()我能管道mtcars输入的方式来编写我的函数,以获得与上面的工作代码相同的输出？即

mtcars %>% <<<something>>>

我想将我的一个分组箱线图（如下）替换为前后类型，但保持分组。这个是使用ggboxplot()from 制作的ggpubr。我知道也有，ggpaired()但我无法像这样分组。

由于这个问题，我能够创建像这样的分组前后图。我现在想将轴从 4 个标记更改为 2 个（只是“是”和“否”，因为“之前”和“之后”仍在图例中。

这是我的带有虚拟数据的代码：

library(tidyverse)

set.seed(123)
data.frame(ID = rep(LETTERS[1:10], 2),
           consent = rep(sample(c("Yes", "No"), 10, replace = T), 2),
           height = sample(rnorm(20, 170, sd = 10)),
           ind = rep(c("before", "after"), each = 2)
           ) %>%
  ggplot(aes(x = interaction(ind, consent), y = height, color = ind))+
  geom_point()+
  geom_line(aes(group = interaction(ID, consent)), color = "black")+
  scale_x_discrete("response")

甚至可以减少轴上的类别数量吗？或者我可以使用ggpaired()，但不使用构面创建分组图吗？

使用VennDiagram包，我通过以下方式生成两个图形：

# First graph
VennDiagram::draw.pairwise.venn(
    area1 = 100,
    area2 = 70,
    cross.area = 30,
    category = c("A1", "B1"),
    fill = c("#00204DFF", "#FFEA46FF")
) -> vg1

# Second graph
VennDiagram::draw.pairwise.venn(
    area1 = 120,
    area2 = 80,
    cross.area = 10,
    category = c("A2", "B2"),
    fill = c("#000004FF", "#FCFFA4FF")
) -> vg2

通过调用时grid::grid.draw(vg1)，grid::grid.draw(vg2)图表按预期显示：

grid::grid.draw(vg1)

grid::grid.draw(vg2)

题

我如何创建一个将两个图都放在另一个图下的网格对象？

尝试

grdFrme <- grid::grid.frame(name = "gf")
grid::grid.pack("gf", vg1)

packGrob（grid.get（gPath），grob，side，row，row.before，row.after中的错误：无效的'grob'

所需结果

我的数据集：

Taxa    dn  dc
Cha    10.2 -20.4
Cha    10.7 -19.7
Cha    4.9  -21.0
Cha    5.4  -20.6
Cha    8.6  -21.2
Cha    8.0  -20.9
Cha    8.1  -21.3
Cha    6.9  -21.1
Cha    8.5  -21.1
Cha    9.1  -20.8
Hyd    6.6  -19.2
Hyd    10.2 -17.0
Hyd    9.7  -18.2
Hyd    8.1  -16.5
Hyd    8.8  -15.8
Hyd    8.7  -15.8
Hyd    7.6  -18.3
Hyd    8.9  -16.0
Hyd    8.4  -17.5
Hyd    9.8  -18.8
Hyd    8.3  -18.4
Scy    9.4  -20.1
Scy    9.1  -20.0
Scy    7.8  -20.2
Scy    9.1  -17.6
Scy …