苏慕晨枫
苏慕晨枫

（转帖）有意思的-GO enrichment (Easier)

原文地址：https://mp.weixin.qq.com/s/cFX51WjlgS-SetbM8THqdg


上次给大家分享的绘制上下调基因GO富集图的方法好像还是比较麻烦，需要用到R和AI，还要自己调试参数，为了尽可能的方便大家，我从头用SVG写了一个脚本，你只需准备好配置文件一键即可得到你想要的图形。

首先还是讲一下配置文件的准备（这也是你唯一需要操心的地方了）。

这一次配置文件分为两个txt文档，分别存有上调和下调基因的GO富集结果，数据格式如下图所示：

（转帖）有意思的-GO enrichment (Easier)_第1张图片

左边是上调基因GO富集的结果，右边是下调基因GO富集的结果，每边1-4列分别是GO

terms, Gene number,

-log10(P-value)和fill（即第一行，作为列名），我是按的-log10(P-value)排序，选的top20的结果，这个可以自己定（但不要太多，比如top100。。。）（如果你想按照gene

number排序，只需要将第二列和第三列互换一下位置就好了，最后有演示）

颜色的选择建议使用http://colorbrewer2.org选择，具体使用方法如下：

（转帖）有意思的-GO enrichment (Easier)_第2张图片

在excel中编辑好文档后，将上下调基因GO富集结果分别复制粘贴到两个txt文档中，分别命名为up.txt，down.txt

（转帖）有意思的-GO enrichment (Easier)_第3张图片

保存好后，在同一目录下新建一个文本文档，将文末的代码复制粘贴到里面，保存，更改文件名为GO.R

（转帖）有意思的-GO enrichment (Easier)_第4张图片

然后右键，用R-studio打开，全选，Run

（转帖）有意思的-GO enrichment (Easier)_第5张图片

然后在同一目录下会生成一个GO.svg的文件，可以用Inkscape或者AI打开，直接另存为PDF即可。

然后，你就得到矢量图了

我是取得top20的，这个可以自己根据需要选择，比如我按基因数目排序选top15，换另外一种色系颜色，只需要修改配置文件就好了，不需要更改代码（知识点：配置文件是关键）。

R脚本：

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~#

# Author: Zhaodong Hao

# Create data: 2017-06-24

# Description: GO enrichment - 2

# Attention: you can use Inkscape or AI to open the output file (.svg) and save as a PDF file

# Contact: [email protected]

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~#

# set the working dictionary as the path of 'source'd file

whereFrom=sys.calls()[[1]]

# This should be an expression that looks something like

# source("pathname/myfilename.R")

whereFrom=as.character(whereFrom[2]) # get the pathname/filename

whereFrom=paste(getwd(),whereFrom,sep="/") # prefix it with the current working directory

pathnameIndex=gregexpr(".*/",whereFrom) # we want the string up to the final '/'

pathnameLength=attr(pathnameIndex[[1]],"match.length")

whereFrom=substr(whereFrom,1,pathnameLength-1)

setwd(whereFrom)

up_data_pre <- read.table("up.txt", sep = "\t")

up_data <- read.table("up.txt", sep = "\t", header = T)

colnames(up_data)

<- c(as.character(up_data_pre[1, 1]), as.character(up_data_pre[1,

2]), as.character(up_data_pre[1, 3]), as.character(up_data_pre[1, 4]))

down_data_pre <- read.table("down.txt", sep = "\t")

down_data <- read.table("down.txt", sep = "\t", header = T)

colnames(down_data)

<- c(as.character(down_data_pre[1, 1]),

as.character(down_data_pre[1, 2]), as.character(down_data_pre[1, 3]),

as.character(down_data_pre[1, 4]))

xlim_up_1 <-

ceiling(max(up_data[ ,2]) / (5 * 10 ^(nchar(ceiling(max(up_data[ ,2]))) -

2))) * (5 * 10 ^(nchar(ceiling(max(up_data[ ,2]))) - 2))

xlim_up_2

<- ceiling(max(up_data[ ,3]) / (5 * 10 ^(nchar(ceiling(max(up_data[

,3]))) - 2))) * (5 * 10 ^(nchar(ceiling(max(up_data[ ,3]))) - 2))

xlim_down_1

<- ceiling(max(down_data[ ,2]) / (5 * 10

^(nchar(ceiling(max(down_data[ ,2]))) - 2))) * (5 * 10

^(nchar(ceiling(max(down_data[ ,2]))) - 2))

xlim_down_2 <-

ceiling(max(down_data[ ,3]) / (5 * 10 ^(nchar(ceiling(max(down_data[

,3]))) - 2))) * (5 * 10 ^(nchar(ceiling(max(down_data[ ,3]))) - 2))

### rect model:

# x,y 矩形左上角点的坐标； rx,ry 圆角矩形；width,height 矩形的宽和高（从左上角的点向右向下延伸）； fill 填充颜色；stroke 线的颜色；stroke-width 线的宽度；opacity 透明度

# up_data rect

for (i in 1:nrow(up_data)) {

  up_data[i, 5] <- 2.5 * 35.43307 + 1.5 * 35.43307 + (nrow(up_data[1:i,]) - 1) * (0.15 + 0.03) * 35.43307

}

names(up_data)[5] <- "y"

up_data$x <- (1.9 + 4 + 0.25) * 35.43307

for (i in 1:nrow(up_data)) {

  up_data[i, 7] <- up_data[i, 3] * (4 * 35.43307) / xlim_up_2

}

names(up_data)[7] <- "width"

up_data$rect

= paste("

width=\"", up_data$width,  "\" height=\"", 0.15 * 35.43307, "\"

style=\"fill:#", up_data$fill, "\"/>", sep = "")

# down_data rect

for (i in 1:nrow(down_data)) {

  down_data[i, 5] <- 2.5 * 35.43307 + 1.5 * 35.43307 + (nrow(down_data[1:i,]) - 1) * (0.15 + 0.03) * 35.43307

}

names(down_data)[5] <- "y"

for (i in 1:nrow(down_data)) {

  down_data[i, 6] <- (1.9 + 4 + 0.25 + 4 + 0.7 + 4) * 35.43307 - down_data[i, 3] * (4 * 35.43307) / xlim_down_2

}

names(down_data)[6] <- "x"

for (i in 1:nrow(down_data)) {

  down_data[i, 7] <- down_data[i, 3] * (4 * 35.43307) / xlim_down_2

}

names(down_data)[7] <- "width"

down_data$rect

= paste("

width=\"", down_data$width,  "\" height=\"", 0.15 * 35.43307, "\"

style=\"fill:#", down_data$fill, "\"/>", sep = "")

### polyline model:

# up_data polyline

for (i in 1:nrow(up_data)) {

  up_data[i, 9] = (1.9 + 4 + 0.25) * 35.43307 + up_data[i, 2] * (4 * 35.43307) / xlim_up_1

}

names(up_data)[9] <- "x1"

for (i in 1:nrow(up_data)) {

  up_data[i, 10] = 2.5 * 35.43307 + 1.5 * 35.43307 + 0.075 * 35.43307 + (nrow(up_data[1:i,]) - 1) * (0.15 + 0.03) * 35.43307

}

names(up_data)[10] <- "y1"

polyline_1

<- paste("

up_data$y1, sep = ""), collapse = " "), "\"

style=\"fill:white;stroke:black;stroke-width:0.8;fill-opacity:0\"/>")

# down_data polyline

for (i in 1:nrow(down_data)) {

  down_data[i, 9] = (1.9 + 4 + 0.25 + 4 + 0.7 + 4) * 35.43307 - down_data[i, 2] * (4 * 35.43307) / xlim_down_1

}

names(down_data)[9] <- "x1"

for (i in 1:nrow(down_data)) {

  down_data[i, 10] = 2.5 * 35.43307 + 1.5 * 35.43307 + 0.075 * 35.43307 + (nrow(down_data[1:i,]) - 1) * (0.15 + 0.03) * 35.43307

}

names(down_data)[10] <- "y1"

polyline_2

<- paste("

down_data$y1, sep = ""), collapse = " "), "\"

style=\"fill:white;stroke:black;stroke-width:0.8;fill-opacity:0\"/>")

polyline_left_1

<- paste("

+ max(up_data$width[1], up_data[1, 2] * (4 * 35.43307) / xlim_up_1) +

1/5 * (4 * 35.43307 - max(up_data$width[1], up_data[1, 2] * (4 *

35.43307) / xlim_up_1)), up_data$y1[1], sep = ","),

                         paste((1.9 + 4 + 0.25 + 4) * 35.43307, up_data$y1[1], sep = ","), 

                         paste((1.9 + 4 + 0.25 + 4) * 35.43307, up_data$y1[nrow(up_data)/3], sep = ","), 


                       paste((1.9 + 4 + 0.25) * 35.43307 +

max(up_data$width[nrow(up_data)/3], up_data[nrow(up_data)/3, 2] * (4 *

35.43307) / xlim_up_1) + 1/5 * (4 * 35.43307 -

max(up_data$width[nrow(up_data)/3], up_data[nrow(up_data)/3, 2] * (4 *

35.43307) / xlim_up_1)), up_data$y1[nrow(up_data)/3], sep = ","),

                         "\" style=\"fill:white;stroke:black;stroke-width:0.5;fill-opacity:0\"/>")

polyline_left_2

<- paste("

+ max(up_data$width[nrow(up_data)/3 + 1], up_data[nrow(up_data)/3 + 1,

2] * (4 * 35.43307) / xlim_up_1) + 1/5 * (4 * 35.43307 -

max(up_data$width[nrow(up_data)/3 + 1], up_data[nrow(up_data)/3 + 1, 2] *

(4 * 35.43307) / xlim_up_1)), up_data$y1[nrow(up_data)/3 + 1], sep =

","),

                         paste((1.9 + 4 + 0.25 + 4) * 35.43307, up_data$y1[nrow(up_data)/3 + 1], sep = ","), 

                         paste((1.9 + 4 + 0.25 + 4) * 35.43307, up_data$y1[nrow(up_data)/3 * 2], sep = ","), 


                       paste((1.9 + 4 + 0.25) * 35.43307 +

max(up_data$width[nrow(up_data)/3 * 2], up_data[nrow(up_data)/3 * 2, 2] *

(4 * 35.43307) / xlim_up_1) + 1/5 * (4 * 35.43307 -

max(up_data$width[nrow(up_data)/3 * 2], up_data[nrow(up_data)/3 * 2, 2] *

(4 * 35.43307) / xlim_up_1)), up_data$y1[nrow(up_data)/3 * 2], sep =

","),

                         "\" style=\"fill:white;stroke:black;stroke-width:0.5;fill-opacity:0\"/>")

polyline_left_3

<- paste("

+ max(up_data$width[nrow(up_data)/3 * 2 + 1], up_data[nrow(up_data)/3 *

2 + 1, 2] * (4 * 35.43307) / xlim_up_1) + 1/5 * (4 * 35.43307 -

max(up_data$width[nrow(up_data)/3 * 2 + 1], up_data[nrow(up_data)/3 * 2 +

1, 2] * (4 * 35.43307) / xlim_up_1)), up_data$y1[nrow(up_data)/3 * 2 +

1], sep = ","),

                         paste((1.9 + 4 + 0.25 + 4) * 35.43307, up_data$y1[nrow(up_data)/3 * 2 + 1], sep = ","), 

                         paste((1.9 + 4 + 0.25 + 4) * 35.43307, up_data$y1[nrow(up_data)/3 * 3], sep = ","), 


                       paste((1.9 + 4 + 0.25) * 35.43307 +

max(up_data$width[nrow(up_data)/3 * 3], up_data[nrow(up_data)/3 * 3, 2] *

(4 * 35.43307) / xlim_up_1) + 1/5 * (4 * 35.43307 -

max(up_data$width[nrow(up_data)/3 * 3], up_data[nrow(up_data)/3 * 3, 2] *

(4 * 35.43307) / xlim_up_1)), up_data$y1[nrow(up_data)/3 * 3], sep =

","),

                         "\" style=\"fill:white;stroke:black;stroke-width:0.5;fill-opacity:0\"/>")

polyline_right_1

<- paste("

35.43307 + 4/5 * (4 * 35.43307 - max(down_data$width[1], down_data[1,

2] * (4 * 35.43307) / xlim_down_1)), down_data$y1[1], sep = ","),

                          paste((1.9 + 4 + 0.25 + 4 + 0.7) * 35.43307, down_data$y1[1], sep = ","), 

                          paste((1.9 + 4 + 0.25 + 4 + 0.7) * 35.43307, down_data$y1[nrow(down_data)/3], sep = ","), 


                        paste((1.9 + 4 + 0.25 + 4 + 0.7) * 35.43307 +

4/5 * (4 * 35.43307 - max(down_data$width[nrow(down_data)/3],

down_data[nrow(down_data)/3, 2] * (4 * 35.43307) / xlim_down_1)),

down_data$y1[nrow(down_data)/3], sep = ","),

                          "\" style=\"fill:white;stroke:black;stroke-width:0.5;fill-opacity:0\"/>")

polyline_right_2

<- paste("

35.43307 + 4/5 * (4 * 35.43307 - max(down_data$width[nrow(up_data)/3 +

1], down_data[nrow(up_data)/3 + 1, 2] * (4 * 35.43307) / xlim_down_1)),

down_data$y1[nrow(up_data)/3 + 1], sep = ","),

                          paste((1.9 + 4 + 0.25 + 4 + 0.7) * 35.43307, down_data$y1[nrow(up_data)/3 + 1], sep = ","), 

                          paste((1.9 + 4 + 0.25 + 4 + 0.7) * 35.43307, down_data$y1[nrow(down_data)/3 * 2], sep = ","), 


                        paste((1.9 + 4 + 0.25 + 4 + 0.7) * 35.43307 +

4/5 * (4 * 35.43307 - max(down_data$width[nrow(down_data)/3 * 2],

down_data[nrow(down_data)/3 * 2, 2] * (4 * 35.43307) / xlim_down_1)),

down_data$y1[nrow(down_data)/3 * 2], sep = ","),

                          "\" style=\"fill:white;stroke:black;stroke-width:0.5;fill-opacity:0\"/>")

polyline_right_3

<- paste("

35.43307 + 4/5 * (4 * 35.43307 - max(down_data$width[nrow(up_data)/3 * 2

+ 1], down_data[nrow(up_data)/3 * 2 + 1, 2] * (4 * 35.43307) /

xlim_down_1)), down_data$y1[nrow(up_data)/3 * 2 + 1], sep = ","),

                          paste((1.9 + 4 + 0.25 + 4 + 0.7) * 35.43307, down_data$y1[nrow(up_data)/3 * 2 + 1], sep = ","), 

                          paste((1.9 + 4 + 0.25 + 4 + 0.7) * 35.43307, down_data$y1[nrow(down_data)/3 * 3], sep = ","), 


                        paste((1.9 + 4 + 0.25 + 4 + 0.7) * 35.43307 +

4/5 * (4 * 35.43307 - max(down_data$width[nrow(down_data)/3 * 3],

down_data[nrow(down_data)/3 * 3, 2] * (4 * 35.43307) / xlim_down_1)),

down_data$y1[nrow(down_data)/3 * 3], sep = ","),

                          "\" style=\"fill:white;stroke:black;stroke-width:0.5;fill-opacity:0\"/>")

### line model:

# up_data y-ticks

up_data$Y_ticks

<- paste("

x2=\"", up_data$x - 0.15 * 35.43307, "\" y2=\"", up_data$y1, "\"

style=\"stroke:black;stroke-width:0.5\"/>", sep = "")

# down_data y-ticks

down_data$Y_ticks

<- paste("

y1=\"", down_data$y1, "\" x2=\"", (17.2 + 1.9 - 4 - 0.1) * 35.43307, "\"

y2=\"", down_data$y1, "\"

style=\"stroke:black;stroke-width:0.5\"/>", sep = "")

# up_data x & -ticks_bottom

up_data_x_bottom

<- paste("

1.5 * 35.43307 + nrow(up_data) * (0.15 + 0.03) * 35.43307 + 0.03 *

35.43307, "\" x2=\"", 217.9134 + 4 * 35.43307, "\" y2=\"", 2.5 *

35.43307 + 1.5 * 35.43307 + nrow(up_data) * (0.15 + 0.03) * 35.43307 +

0.03 * 35.43307, "\" style=\"stroke:black;stroke-width:1\"/>", sep =

"")

up_data_x_ticks_bottom <- data.frame(seq(0, xlim_up_2, xlim_up_2 / 5))

up_data_x_ticks_bottom$ticks

<- paste("

up_data_x_ticks_bottom[,1] * (4 * 35.43307) / xlim_up_2, "\" y1=\"", 2.5

* 35.43307 + 1.5 * 35.43307 + nrow(up_data) * (0.15 + 0.03) * 35.43307 +

0.03 * 35.43307, "\" x2=\"", (1.9 + 4 + 0.25) * 35.43307 +

up_data_x_ticks_bottom[,1] * (4 * 35.43307) / xlim_up_2, "\" y2=\"", 2.5

* 35.43307 + 1.5 * 35.43307 + nrow(up_data) * (0.15 + 0.03) * 35.43307 +

0.15 * 35.43307 + 0.03 * 35.43307, "\"

style=\"stroke:black;stroke-width:0.5\"/>", sep = "")

# down_data x & -ticks_bottom

down_data_x_bottom

<- paste("

1.5 * 35.43307 + nrow(down_data) * (0.15 + 0.03) * 35.43307 + 0.03 *

35.43307, "\" x2=\"", 384.4488 + 4 * 35.43307, "\" y2=\"", 2.5 *

35.43307 + 1.5 * 35.43307 + nrow(down_data) * (0.15 + 0.03) * 35.43307 +

0.03 * 35.43307, "\" style=\"stroke:black;stroke-width:1\"/>", sep =

"")

down_data_x_ticks_bottom <- data.frame(seq(0, xlim_down_2, xlim_down_2 / 5))

down_data_x_ticks_bottom$ticks

<- paste("

down_data_x_ticks_bottom[,1] * (4 * 35.43307) / xlim_down_2, "\" y1=\"",

2.5 * 35.43307 + 1.5 * 35.43307 + nrow(down_data) * (0.15 + 0.03) *

35.43307 + 0.03 * 35.43307, "\" x2=\"", (17.2 + 1.9 - 4 - 0.25) *

35.43307 - down_data_x_ticks_bottom[,1] * (4 * 35.43307) / xlim_down_2,

"\" y2=\"", 2.5 * 35.43307 + 1.5 * 35.43307 + nrow(down_data) * (0.15 +

0.03) * 35.43307 + 0.15 * 35.43307 + 0.03 * 35.43307, "\"

style=\"stroke:black;stroke-width:0.5\"/>", sep = "")

# up_data x & -ticks_top

up_data_x_top

<- paste("

1.5 * 35.43307 - (0.03 + 0.03) * 35.43307, "\" x2=\"", 217.9134 + 4 *

35.43307, "\" y2=\"", 2.5 * 35.43307 + 1.5 * 35.43307 - (0.03 + 0.03) *

35.43307, "\" style=\"stroke:black;stroke-width:1\"/>", sep = "")

up_data_x_ticks_top <- data.frame(seq(0, xlim_up_1, xlim_up_1 / 5))

up_data_x_ticks_top$ticks

<- paste("

up_data_x_ticks_top[,1] * (4 * 35.43307) / xlim_up_1, "\" y1=\"", 2.5 *

35.43307 + 1.5 * 35.43307 - (0.03 + 0.03) * 35.43307, "\" x2=\"", (1.9 +

4 + 0.25) * 35.43307 + up_data_x_ticks_top[,1] * (4 * 35.43307) /

xlim_up_1, "\" y2=\"", 2.5 * 35.43307 + 1.5 * 35.43307 - (0.03 + 0.03) *

35.43307 - 0.15 * 35.43307, "\"

style=\"stroke:black;stroke-width:0.5\"/>", sep = "")

# down_data x & -ticks_top

down_data_x_top

<- paste("

1.5 * 35.43307 - (0.03 + 0.03) * 35.43307, "\" x2=\"", 384.4488 + 4 *

35.43307, "\" y2=\"", 2.5 * 35.43307 + 1.5 * 35.43307 - (0.03 + 0.03) *

35.43307, "\" style=\"stroke:black;stroke-width:1\"/>", sep = "")

down_data_x_ticks_top <- data.frame(seq(0, xlim_down_1, xlim_down_1 / 5))

down_data_x_ticks_top$ticks

<- paste("

down_data_x_ticks_top[,1] * (4 * 35.43307) / xlim_down_1, "\" y1=\"",

2.5 * 35.43307 + 1.5 * 35.43307 - (0.03 + 0.03) * 35.43307, "\" x2=\"",

(17.2 + 1.9 - 4 - 0.25) * 35.43307 - down_data_x_ticks_top[,1] * (4 *

35.43307) / xlim_down_1, "\" y2=\"", 2.5 * 35.43307 + 1.5 * 35.43307 -

(0.03 + 0.03) * 35.43307 - 0.15 * 35.43307, "\"

style=\"stroke:black;stroke-width:0.5\"/>", sep = "")

### text model

up_data_x_ticks_bottom$text

<- paste("

up_data_x_ticks_bottom[,1] * (4 * 35.43307) / xlim_up_2 -

nchar(up_data_x_ticks_bottom[,1]) * 2, "\" y=\"", 2.5 * 35.43307 + 1.5 *

35.43307 + nrow(up_data) * (0.15 + 0.03) * 35.43307 + 0.03 * 35.43307 +

0.5 * 35.43307, "\" font-family=\"Arial\" font-size=\"8\"

fill=\"black\" >", up_data_x_ticks_bottom[,1], "", sep =

"")

down_data_x_ticks_bottom$text <- paste("

(17.2 + 1.9 - 4 - 0.25) * 35.43307 - down_data_x_ticks_bottom[,1] * (4 *

35.43307) / xlim_down_2 - nchar(down_data_x_ticks_bottom[,1]) * 2, "\"

y=\"", 2.5 * 35.43307 + 1.5 * 35.43307 + nrow(down_data) * (0.15 + 0.03)

* 35.43307 + 0.03 * 35.43307 + 0.5 * 35.43307, "\"

font-family=\"Arial\" font-size=\"8\" fill=\"black\" >",

down_data_x_ticks_bottom[,1], "", sep = "")

up_data_x_ticks_top$text

<- paste("

up_data_x_ticks_top[,1] * (4 * 35.43307) / xlim_up_1 -

nchar(up_data_x_ticks_top[,1]) * 2, "\" y=\"", 2.5 * 35.43307 + 1.5 *

35.43307 - (0.03 + 0.03) * 35.43307 - 0.25 * 35.43307, "\"

font-family=\"Arial\" font-size=\"8\" fill=\"black\" >",

up_data_x_ticks_top[,1], "", sep = "")

down_data_x_ticks_top$text

<- paste("

down_data_x_ticks_top[,1] * (4 * 35.43307) / xlim_down_1 -

nchar(down_data_x_ticks_top[,1]) * 2, "\" y=\"", 2.5 * 35.43307 + 1.5 *

35.43307 - (0.03 + 0.03) * 35.43307 - 0.25 * 35.43307, "\"

font-family=\"Arial\" font-size=\"8\" fill=\"black\" >",

down_data_x_ticks_top[,1], "", sep = "")

up_data$text

<- paste("

up_data$y1 + 0.075 * 35.43307, "\" text-anchor=\"end\"

font-family=\"Arial\" font-size=\"6\" fill=\"black\" >", up_data[

,1], "", sep = "")

down_data$text <-

paste("

down_data$y1 + 0.075 * 35.43307, "\" font-family=\"Arial\"

font-size=\"6\" fill=\"black\" >", down_data[ ,1], "",

sep = "")

labels <- data.frame(paste("

0.25 + 4) * 35.43307, "\" y=\"", 2.5 * 35.43307 + 1.5 * 35.43307 +

nrow(up_data) * (0.15 + 0.03) * 35.43307 + 0.03 * 35.43307 + 1 *

35.43307, "\" text-anchor=\"end\" font-family=\"Arial\" font-size=\"8\"

fill=\"black\" >", colnames(up_data)[3], "", sep = ""),


                   paste("

35.43307, "\" y=\"", 2.5 * 35.43307 + 1.5 * 35.43307 + nrow(up_data) *

(0.15 + 0.03) * 35.43307 + 0.03 * 35.43307 + 1 * 35.43307, "\"

font-family=\"Arial\" font-size=\"8\" fill=\"black\" >",

colnames(down_data)[3], "", sep = ""),


     paste("

2.5 * 35.43307 + 1.5 * 35.43307 - (0.03 + 0.03) * 35.43307 - 0.25 *

35.43307 - 0.5 * 35.43307, "\" text-anchor=\"end\" font-family=\"Arial\"

font-size=\"8\" fill=\"black\" >", colnames(up_data)[2],

"", sep = ""),

                     paste("

x=\"", (1.9 + 4 + 0.25 + 4 + 0.7) * 35.43307, "\" y=\"", 2.5 * 35.43307 +

1.5 * 35.43307 - (0.03 + 0.03) * 35.43307 - 0.25 * 35.43307 - 0.5 *

35.43307, "\" font-family=\"Arial\" font-size=\"8\" fill=\"black\"

>", colnames(down_data)[2], "", sep = "")

)

BP

<- paste("

"\" y=\"", (up_data$y1[nrow(up_data)/3] - up_data$y1[1])/2 +

up_data$y1[1] + 0.075 * 35.43307, "\" text-anchor=\"middle\"

font-family=\"Arial\" font-size=\"8\" fill=\"black\"

>BP", sep = "")

CC <- paste("

(1.9 + 4 + 0.25 + 4 + 0.35) * 35.43307, "\" y=\"",

(up_data$y1[nrow(up_data)/3 * 2] - up_data$y1[nrow(up_data)/3])/2 +

up_data$y1[nrow(up_data)/3] + 0.075 * 35.43307, "\"

text-anchor=\"middle\" font-family=\"Arial\" font-size=\"8\"

fill=\"black\" >CC", sep = "")

MF <-

paste("

y=\"", (up_data$y1[nrow(up_data)/3 * 3] - up_data$y1[nrow(up_data)/3 *

2])/2 + up_data$y1[nrow(up_data)/3 * 2] + 0.075 * 35.43307, "\"

text-anchor=\"middle\" font-family=\"Arial\" font-size=\"8\"

fill=\"black\" >MF", sep = "")

# write .svg file

first_line <- data.frame("",

                         "

                         "\"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\">",

                         "",

                         paste("", "\t")

)

write.table(first_line[1, 1], "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE)

write.table(first_line[1, 2], "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(first_line[1, 3], "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(first_line[1, 4], "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(first_line[1, 5], "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(up_data$rect, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(down_data$rect, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(polyline_1, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(polyline_2, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(polyline_left_1, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(polyline_left_2, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(polyline_left_3, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(polyline_right_1, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(polyline_right_2, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(polyline_right_3, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(up_data$Y_ticks, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(down_data$Y_ticks, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(up_data_x_bottom, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(up_data_x_ticks_bottom$ticks, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(down_data_x_bottom, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(down_data_x_ticks_bottom$ticks, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(up_data_x_top, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(up_data_x_ticks_top$ticks, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(down_data_x_top, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(down_data_x_ticks_top$ticks, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(up_data_x_ticks_bottom$text, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(down_data_x_ticks_bottom$text, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(up_data_x_ticks_top$text, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(down_data_x_ticks_top$text, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(up_data$text, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(down_data$text, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(labels, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(BP, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(CC, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

write.table(MF, "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

last_line <- data.frame(paste(""))

write.table(last_line[1, 1], "GO.svg", col.names = FALSE, row.names = FALSE, quote = FALSE, append = TRUE)

脚本比较长，不过你们完全不需要看，只要复制粘贴一下就OK啦

P.S. 想看懂代码的可以先学一学基础的R处理数据和SVG脚本（http://tutorials.jenkov.com/svg/index.html）。另外，百度云里面我放了R脚本和示例文件哦（链接: https://pan.baidu.com/s/1geLSbpL 密码: b7wn）。目前我测试了几次数据，只要配置文件没问题应该就没问题了，后期有问题的可以发我邮箱（[email protected]），欢迎提问，共同进步！

你可能感兴趣的:(（转帖）有意思的-GO enrichment (Easier))

  • 出门在外注意安全 在人间闯荡的日子
    2019年年底疫情爆发至今我们贵州疫情管控还是蛮好的，最近遵义一人确证，紧跟着就出现了群人确证。我在这里也不过多得评判他人，做好防护，保护自己，也响应国家。近年来出现了向世界末日样的病毒，这都我们不可预知的。我们在毫无知情的情况下。从2019年，到现在，做的已经够好的一个国家，但是总有人，不顾及他人安危，做出一些不可饶恕的事。但是我们不可能去约束别人，只能保护好自己，希望大家在世界各个地方，平安健
  • 【0703我在悦读】1402-空谷幽兰 绿水青山空谷幽兰
    书名：《跃迁》识局反馈回路的特点：短期感受和长期收益总是相悖。正循环的学习、健康、投入、习惯刚开始都感觉很累，并不舒服，而负循环的开头——忙带来的充实感、不投入的安全感、工作狂的成就感，短期感受都很好。是不是可以理解为，当一个体验短期很爽的时候，我们要警惕，长远的损失是什么？当这个体验很痛苦的时候，我们一定要自我激励：长远的收益一定好！就像健身锻炼，本身体能差，锻炼起来非常费力，下次锻炼的时候，一
  • 《引爆视频号》张萌 成长的饭团
    书籍名称：《引爆视频号》作者：张萌推荐理由：在网络时代短视频每个人都不陌生，也占据了多数人的注意力。现在每个人都可以拥有自己的自媒体，也是互联网全民创业的时代。如果你错过了抖音、快手，那么视频号你一定不能错过。视频号的优势在于它自带流量，可以和公众号、朋友圈结合。轻松完成1、2级传播（好友和好友的好友）。视频号内容有三种视频号点击率高的内容，技术类的内容，分享各种小技巧、美食制作、衣服穿搭、化妆品
  • 盼望疫情早点过去 陪你今生来世
    01昨天一早看到群里发布关于我省城乡各路段解封的信息，这是否意味着疫情得到了有效控制，开学和复工有望？果不其然，关注新闻确实看到了一些令人振奋的好消息。专家们发现几种对治疗新冠肺炎有效的药物，越来越多的患者被治愈。说实话，心里也算长舒了一口气，这样下去离开学，复工的日子应该不远了。后面仓库卖料的大哥已经营业，听着来往的三轮车声响，感觉生意应该还不错。我就在想:要不要也开门营业？这两天已经有客户打电
  • 【Vue3源码实现】Ref isRef unRef proxyRefs实现 ZhaiMou vue.jsjavascript前端数据结构前端框架开发语言
    前言在上篇文章中我们了解了响应式原理，并在最后实现了reactive。上文链接Vue3响应式原理实现与track和trigger依赖收集和触发依赖在我们的日常业务中，我们有可能需要将一个基础数据类型的值也转换成响应式的，而reactive只能代理对象，我们需要对基础数据类型的值也进行读写操作的拦截，但Proxy无法实现对基础数据类型值读写操作的拦截。所以Vue设计了Ref,以及相关api本篇文章实
  • 国产十大动画片排行榜Top2：大圣落魄，无能为力。《西游记之大圣归来》 小川_d87b
    我的英雄何在？英雄何在！在漫威，DC超级英雄的接二连三的轰击之下，我们的英雄还在吗？不可否认，我自己也很喜欢漫威宇宙的金刚狼，钢铁侠，这些英雄。也喜欢DC宇宙的蝙蝠侠，闪电侠，超人这些英雄。但我却更喜欢一个中国原汁原味的英雄。很小的时候，我心中的英雄是齐天大圣，但现在，大圣安在？中国的动画产业有些急躁了。虽然中国没有日本那样完备的动画产业链，挡不住投资方的突然撤资，项目突然夭折：虽然中国的动画人才
  • 彩色的时刻 冰夫
    喜欢这样的彩色时刻：红霞、蓝月、绿山、黄河、紫花、白雪--当一种颜色与另一种颜色在一起，便会觉得美丽与甜蜜在一起。自然的颜色就是生命的颜色，生命的颜色就是心灵的颜色。彩色的心灵在天空飞舞，在大地跳跃，也在我的光阴里行走。
  • 那些让我感到优秀的句子 星河赶路人
    “最是那一低头的温柔，像一朵水莲花不胜凉风的娇羞。”想饮一些酒，让灵魂失重，好被风吹走。可一想到终将是你的路人，便觉得，沦为整个世界的路人。风虽大，都绕过我灵魂。长的不好看，优点也不多，梦想很平凡，如果说我喜欢你，你可不可以不要笑我。白酒很苦，但它不贵，姑娘虽美，但我不配，故事不长，也不难讲，喝完这杯，再谈理想聋子说放的炮不响，瞎子说点的灯不亮，瘸子说这炮很响，灯也很亮，只是这平坦的路上走起来却有
  • 鱼儿 婠执
    图片发自App一周过去了，我们终于得以相安无恙。初来乍到之时，定是嫌弃被这小小的鱼缸困囿，它们接二连三地往外跳，急欲认知外面的世界。殊不知唯有安于现状，才是最稳妥的境地。竭尽全力跳出去、轻而易举地被放回来，几次尝试未果，它们不得不重新审视周遭的“家园”。在绿叶与巨石的装点下，一切看起来也挺有乐趣，算得上是“青山绿水”。我想，在它们眼中我许是个叫不出种类的庞然大物。不看它们时，它们畅快地穿梭于曲曲绕
  • React 前端应用结合 Nginx 部署指南及常见错误排查 蜗牛去旅行吧 前端react.jsnginx
    在现代Web开发中，React已成为构建用户界面的流行选择，而Nginx则是一个高性能的Web服务器，广泛用于静态文件的托管和负载均衡。在本篇博客中，我们将详细介绍如何将一个React应用部署到Nginx上，并探讨在部署过程中可能遇到的常见错误及其解决方案。部署步骤1.准备React应用首先，确保你已经创建了一个React应用。如果还没有，可以使用CreateReactApp快速生成一个基础项目：
  • 颖儿跟付辛博AA制生活惹争议，夫妻到底应不应该AA？ 公子临崖
    每对夫妻都有自己的一套理财观念。有些丈夫喜欢把工资卡交给妻子，负责家里边的开支；也有些夫妻喜欢各自握着自己的工资，一起为这个家买单。但是不管是哪一种方式，双方都是一家人，握着财政大权的妻子，不可能让自己的丈夫从此喝上西北风。各自把握着财权的夫妻，也不可能真的就划出一个三八线，分的明明白白。前不久，一对新婚不久的小夫妻，颖儿跟付辛博，他们在一档节目上说起了彼此的理财。他们喜欢各自管各自的钱财，也就是
  • Python教程：面向对象 无敌开心 python开发语言
    模块3：Python高级模块概述本课程旨在介绍Python编程语言中的面向对象编程（OOP）概念和技术。学生将学习如何使用类、对象、继承、多态等OOP的关键要素来构建灵活、可重用和可扩展的代码。通过实际编程练习和项目，学生将提高他们的编程技能，学会设计和实现面向对象的解决方案。面向对象编程是在面向过程编程的基础上发展来的，它比面向过程编程具有更强的灵活性和扩展性。面向对象编程是程序员发展的分水岭，
  • 莆田鞋十大良心靠谱微商推荐,看重这五个莆田商家 优鞋之家
    莆田鞋十大良心靠谱微商推荐,看重这五个莆田商家莆田鞋真正可靠的十大良心微商推荐，2023年最有影响力的十个诚信莆田鞋商家引荐给大家！微商作为一个实力非凡的卖莆田鞋平台，名声好人气旺，是一个不可多得的良心买鞋去处，因此每天买鞋之人络绎不绝。那么你知道莆田鞋十大良心微商吗？若是没有听说过，一定要把莆田鞋十大良心微商了解清楚，今后买鞋就认准他们吧！微信图片_20220210214331.jpg2023年
  • 正义—评《起跑线》 每天有趣一点点
    这是一部没有多少笑料和泪点，却能戳中痛点，引人深思的片子。从影院出来后五味杂陈，很长时间心里郁郁的，却说不出郁在哪里。“别人家的电影”已是老生常谈，我们自己的电影距离现实十万八千里，倒是一些引进片儿，偶尔能够将别处的阳光照进我们的现实。影片的主人公是现实生活中颇为得意的一对儿中产夫妇，他们夫妻恩爱，邻里和睦，有着不错的经济条件和可爱的女儿，蛮幸福的样子。可到了女儿入学的关口，为了让孩子“不输在起跑
  • 捡起生命中的那枚马蹄铁 殷丹奥
    父子俩一同穿越沙漠。在经历了漫长的败涉之后，他们都疲意不堪，干渴难忍，每迈出一步都异常艰难。这时父亲看到黄沙中有一枚马蹄铁在阳光的照耀下闪闪发光一那是沙漠先驱者的遗留品。图片发自App父亲对儿子说，捡起它吧，会有用的。儿子用一副不屑一顾的眼神，看了看一望无际的沙漠有什么用呢?儿子摇摇头。于是，父亲什么也没说，只是弯腰拾起了马蹄铁，维续前行。图片发自App终于他们到达了一座城堡，父亲用马蹄铁换了20
  • 爱之声 刘恩伊
    今天早上的课程刚开始老师就让我们听听自己的生音，爱上自己的声音，说话之前先默念三遍“我爱你”。是的，当我们说话之前先说三遍“我爱你”的时候，就是给我们的声音加持上爱的能量了，说出来的话就是有能量的了。爱上自己才能爱上别人，爱满则溢。不爱别人的人，爱挑剔别人毛病的人，肯定不爱自己，因为我们在别人身上所看到的，也是我们自己具有的，别人就是镜子，照出来的是我们自己的样子。当我们爱上自己的时候我们的心也就
  • 达尔文医学——《我们为什么生病》笔记完结篇 蹉跎笑我
    一、对疾病原因的回顾为什么我们被大自然精心设计的身体，仍然为疾病所困？其原因在于：1、遗传因素很多疾病具有遗传性，人类的基因并不是完美无缺。一些致病基因是其只在生命晚期表现出危害，石器时期的人根本活不到这个年龄，自然选择也就没有机会清除掉。但更主要的原因是：有害的基因之所以保留下来，是因为存在潜在的益处。2、环境的巨变人类文明萌芽以来只有一万年，我们身体的进化速度跟不上环境的改变。3、一些疾病的原
  • unocss 一直热更新打印[vite] hot updated: /__uno.css 柳雾青烟紫燕穿 csscss3vue
    控制台持续打印了几千条这条信息，页面逐渐卡死client.ts:450[vite]hotupdated:/__uno.css找出的原因是：依赖出问题了，重新安装unocss，执行命令npmiunocss后修复。但奇怪的是，删除node_modules重新全部安装依赖却不能修复，tmd。还有一种解决方法是切换分支，切去其它分支，再切回来，也不会再打印了。一开始还怀疑了是哪里的unocss类名一直在监
  • 杨蕊今日份总结 羊鑫
    2020年10月8日周四感觉时间过得好快啊。一眨眼间国庆中秋假期就要过去了，明天是个开学的日子，天气也逐渐的转凉，一早一晚都是手脚冰凉。到了学校先给孩子们录今天的书写视频，由于部分同学上一周来的不是很全。给孩子们在视频当中多进行了讲解，根据笔顺一个字，一个字一个笔顺一个笔顺的进行讲解。和前台老师进行签到表的核对，统计。有一个过来应聘的老师，和应聘老师聊了一会儿，她还在纠结和选择当中。去总校拿了我的
  • 99/03-31 喵姬Amy
    今天有点丧！！！！心情比照今天七点醒的，还不错，不算晚，起早的原因是昨天休息的比较早，所以还是要早睡早起。有阅读，但是没有反馈。上班期间专注度还可以，今天几乎没怎么划水，因为比较忙。今天的问题主要有，其一是不够细心，其二是自己平常懒散，工作常用的内容不够足够的熟悉，掌握。所以打算重头再写一遍。今天加班了呢！！！！回家也是自己做饭。没有偷懒，认真的护肤了！再加上泡脚。可是没有做饭，英语未触及。明天加
  • iOS使用SDWebview加载图片失败？ AnderQZ
    今天调试遇到一个很无奈的问题，就是出现了image无法加载出来。最后才发现是图片使用了中文命名，真TM的坑！SDWebimage没办法识别中文，必须要encode才行！
  • Spring Boot项目自动生成OpenAPI3.0规范的接口描述文档yaml [email protected] springbootjavaopenapi
    首先在pom.xml文件中添加springdoc-openapi的依赖：org.springdocspringdoc-openapi-core1.1.45启动SpringBoot程序，通过项目的ip和端口/v3/api-docs访问自动生成的OpenAPI3.0文档(JSON)/v3/api-docs.yaml下载yaml格式的文件如果想要自定义路径，可在application.propertie
  • vue3 响应性API weixin_44747590 vue3vuejs
    toRef可以用来为源响应式对象上的property性创建一个ref。然后可以将ref传递出去，从而保持对其源property的响应式连接。本质类似指针引用。举例：conststate=reactive({foo:1,bar:2})constfooRef=toRef(state,'foo')fooRef.value++console.log(state.foo)//2state.foo++cons
  • vue vueUse利用useInfiniteScroll API 实现虚拟滚动 小白小白从不日白 Vue3vue.js前端
    前言中文网地址：开始使用|VueUse中文网官网地址：VueUse元素的无限滚动。useInfiniteScroll详细解析地址效果组件封装
  • 《歌剧魅影》----加斯通·勒鲁 流泪泉
    你是否窥视过巴黎歌剧院第五号包厢的秘密？如果你知道我在说什么，那你一定也看过这部推理小说。这是我有生以来看的第一部推理小说，但是感觉作家的写作手法完全是按照非推理方式进行的，因为一开始就揭露了魅影就是丑八怪埃里克，而未能阐述清楚的细节则以波斯人的口吻讲述。上帝似乎是公平的，赐予了埃里克天使一般的嗓音同时也给予了他魔鬼一般的面容。就连他的亲生父母都嫌弃他长得丑，所以他不得不长年蜷缩在巴黎歌剧院的地下
  • 基于 LangChain 开发应用程序第三章-储存 明志刘明 大模型学习手册langchain
    需要学习提示词工程的同学请看面向开发者的提示词工程需要学习ChatGPT的同学请查看搭建基于ChatGPT的问答系统本部分之前的章节可以查看基于LangChain开发应用程序第一章-简介基于LangChain开发应用程序第二章-提示和输出第三章储存在与语言模型交互时，你可能已经注意到一个关键问题：它们并不记忆你之前的交流内容，这在我们构建一些应用程序（如聊天机器人）的时候，带来了很大的挑战，使得对
  • 信赖感是微商成功的关键 落花有意min
    在传统的销售中，销售者只有40%的时间在与准客户建立关系，比如：吃饭、聊天、节假日的祝福、送礼物等；30%的时间在了解客户的需求，通过面对面的交流；20%的时间在塑造产品的卖点性；10%的时间来做最后成交的运作。微商的销售我认为用10%的时间来与客户建立关系，大家相互加了微信号后关系就已经建立了，20%的时间在朋友圈或自己的第三方平台去塑造产品的形象；10%的时间留给成交；最后剩下的60%的时间用
  • mysql查询慢排查_mysql慢查询排查优化 weixin_39970855 mysql查询慢排查
    即时分析：showfullpercesslist;开启慢查询日志，分析日志记录：long_query_time=1log-slow-queries=/data/3306/slow.loglog_queries_not_using_indexes分割日志发送至邮箱加explain查看语句的具体执行方式，并定位在哪些字段加上索引，查看条件字段的唯一值selectcount(distinctcolumn
  • 金融爱好者周刊-第 31 期 LuChenghao
    1、中央会议再提“房住不炒”，非常时期非常信号阅读链接:https://3g.163.com/dy/article/GQU7TAV50515983V.html感想：『要继续按照稳定大局、统筹协调、分类施策、精准拆弹的方针，抓好风险处置工作，加强金融法治建设，压实地方、金融监管、行业主管等各方责任，压实企业自救主体责任。』2、详解中央经济工作会议：2022年怎么"稳字当头"？阅读链接:https:/
  • 生产者消费者模式_Labview基础之生产者消费者设计模式（事件） weixin_39532699 生产者消费者模式
    1绪论近期，开了一个QQ群，刚开始的目的也是想多拉写软件相关的大神，有问题的时候也可以交流交流。记得当时有个软件在写的时候遇到了一个棘手的问题，outlook邮箱配置账户密码的问题，到现在也没解决，算了，也不是很迫切。2000人群就留在那里爬虫发单吧！建群以后才发现，原来这一块的小白还挺多，总结起来就一个原因：做这个软件的大多数都不是软件出生，都是因为临时要搭建一个上位机平台，匆匆入门......
  • HQL之投影查询 归来朝歌 HQLHibernate查询语句投影查询
            在HQL查询中，常常面临这样一个场景，对于多表查询，是要将一个表的对象查出来还是要只需要每个表中的几个字段，最后放在一起显示？ 针对上面的场景，如果需要将一个对象查出来： HQL语句写“from 对象”即可 Session session = HibernateUtil.openSession();
  • Spring整合redis bylijinnan redis
    pom.xml <dependencies> <!-- Spring Data - Redis Library --> <dependency> <groupId>org.springframework.data</groupId> <artifactId>spring-data-redi
  • org.hibernate.NonUniqueResultException: query did not return a unique result: 2 0624chenhong Hibernate
    参考：http://blog.csdn.net/qingfeilee/article/details/7052736 org.hibernate.NonUniqueResultException: query did not return a unique result: 2         在项目中出现了org.hiber
  • android动画效果 不懂事的小屁孩 android动画
    前几天弄alertdialog和popupwindow的时候，用到了android的动画效果，今天专门研究了一下关于android的动画效果，列出来，方便以后使用。 Android 平台提供了两类动画。 一类是Tween动画，就是对场景里的对象不断的进行图像变化来产生动画效果（旋转、平移、放缩和渐变）。 第二类就是 Frame动画，即顺序的播放事先做好的图像，与gif图片原理类似。
  • js delete 删除机理以及它的内存泄露问题的解决方案 换个号韩国红果果 JavaScript
    delete删除属性时只是解除了属性与对象的绑定，故当属性值为一个对象时，删除时会造成内存泄露  （其实还未删除） 举例： var person={name:{firstname:'bob'}} var p=person.name delete person.name p.firstname -->'bob' // 依然可以访问p.firstname，存在内存泄露
  • Oracle将零干预分析加入网络即服务计划 蓝儿唯美 oracle
    由Oracle通信技术部门主导的演示项目并没有在本月较早前法国南斯举行的行业集团TM论坛大会中获得嘉奖。但是，Oracle通信官员解雇致力于打造一个支持零干预分配和编制功能的网络即服务（NaaS）平台，帮助企业以更灵活和更适合云的方式实现通信服务提供商（CSP）的连接产品。这个Oracle主导的项目属于TM Forum Live!活动上展示的Catalyst计划的19个项目之一。Catalyst计
  • spring学习——springmvc（二） a-john springMVC
    Spring MVC提供了非常方便的文件上传功能。 1，配置Spring支持文件上传： DispatcherServlet本身并不知道如何处理multipart的表单数据，需要一个multipart解析器把POST请求的multipart数据中抽取出来，这样DispatcherServlet就能将其传递给我们的控制器了。为了在Spring中注册multipart解析器，需要声明一个实现了Mul
  • POJ-2828-Buy Tickets aijuans ACM_POJ
    POJ-2828-Buy Tickets http://poj.org/problem?id=2828 线段树，逆序插入 #include<iostream>#include<cstdio>#include<cstring>#include<cstdlib>using namespace std;#define N 200010struct
  • Java Ant build.xml详解 asia007 build.xml
    1,什么是antant是构建工具2,什么是构建概念到处可查到，形象来说，你要把代码从某个地方拿来，编译，再拷贝到某个地方去等等操作，当然不仅与此，但是主要用来干这个3,ant的好处跨平台   --因为ant是使用java实现的，所以它跨平台使用简单--与ant的兄弟make比起来语法清晰--同样是和make相比功能强大--ant能做的事情很多，可能你用了很久，你仍然不知道它能有
  • android按钮监听器的四种技术 百合不是茶 androidxml配置监听器实现接口
    android开发中经常会用到各种各样的监听器,android监听器的写法与java又有不同的地方;    1,activity中使用内部类实现接口 ,创建内部类实例  使用add方法  与java类似   创建监听器的实例 myLis lis = new myLis();   使用add方法给按钮添加监听器  
  • 软件架构师不等同于资深程序员 bijian1013 程序员架构师架构设计
            本文的作者Armel Nene是ETAPIX Global公司的首席架构师，他居住在伦敦，他参与过的开源项目包括 Apache Lucene,，Apache Nutch， Liferay 和 Pentaho等。         如今很多的公司
  • TeamForge Wiki Syntax & CollabNet User Information Center sunjing TeamForgeHow doAttachementAnchorWiki Syntax
    the CollabNet user information center http://help.collab.net/   How do I create a new Wiki page? A CollabNet TeamForge project can have any number of Wiki pages. All Wiki pages are linked, and
  • 【Redis四】Redis数据类型 bit1129 redis
    概述 Redis是一个高性能的数据结构服务器，称之为数据结构服务器的原因是，它提供了丰富的数据类型以满足不同的应用场景，本文对Redis的数据类型以及对这些类型可能的操作进行总结。 Redis常用的数据类型包括string、set、list、hash以及sorted set.Redis本身是K/V系统，这里的数据类型指的是value的类型，而不是key的类型，key的类型只有一种即string
  • SSH2整合-附源码 白糖_ eclipsespringtomcatHibernateGoogle
    今天用eclipse终于整合出了struts2+hibernate+spring框架。 我创建的是tomcat项目，需要有tomcat插件。导入项目以后，鼠标右键选择属性，然后再找到“tomcat”项，勾选一下“Is a tomcat project”即可。具体方法见源码里的jsp图片，sql也在源码里。     补充1：项目中部分jar包不是最新版的，可能导
  • [转]开源项目代码的学习方法 braveCS 学习方法
    转自： http://blog.sina.com.cn/s/blog_693458530100lk5m.html http://www.cnblogs.com/west-link/archive/2011/06/07/2074466.html   1）阅读features。以此来搞清楚该项目有哪些特性2）思考。想想如果自己来做有这些features的项目该如何构架3）下载并安装d
  • 编程之美-子数组的最大和（二维） bylijinnan 编程之美
    package beautyOfCoding; import java.util.Arrays; import java.util.Random; public class MaxSubArraySum2 { /** * 编程之美 子数组之和的最大值（二维） */ private static final int ROW = 5; private stat
  • 读书笔记-3 chengxuyuancsdn jquery笔记resultMap配置ibatis一对多配置
    1、resultMap配置 2、ibatis一对多配置 3、jquery笔记 1、resultMap配置 当<select resultMap="topic_data"> <resultMap id="topic_data">必须一一对应。 (1)<resultMap class="tblTopic&q
  • [物理与天文]物理学新进展 comsci
          如果我们必须获得某种地球上没有的矿石,才能够进行某些能量输出装置的设计和建造,而要获得这种矿石,又必须首先进行深空探测,而要进行深空探测,又必须获得这种能量输出装置,这个矛盾的循环,会导致地球联盟在与宇宙文明建立关系的时候,陷入困境       怎么办呢?  
  • Oracle 11g新特性:Automatic Diagnostic Repository daizj oracleADR
    Oracle Database 11g的FDI（Fault Diagnosability Infrastructure）是自动化诊断方面的又一增强。 FDI的一个关键组件是自动诊断库（Automatic Diagnostic Repository-ADR）。 在oracle 11g中，alert文件的信息是以xml的文件格式存在的，另外提供了普通文本格式的alert文件。 这两份log文
  • 简单排序:选择排序 dieslrae 选择排序
    public void selectSort(int[] array){ int select; for(int i=0;i<array.length;i++){ select = i; for(int k=i+1;k<array.leng
  • C语言学习六指针的经典程序，互换两个数字 dcj3sjt126com c
    示例程序，swap_1和swap_2都是错误的，推理从1开始推到2，2没完成，推到3就完成了 # include <stdio.h> void swap_1(int, int); void swap_2(int *, int *); void swap_3(int *, int *); int main(void) { int a = 3; int b =
  • php 5.4中php-fpm 的重启、终止操作命令 dcj3sjt126com PHP
    php 5.4中php-fpm 的重启、终止操作命令: 查看php运行目录命令：which php/usr/bin/php 查看php-fpm进程数：ps aux | grep -c php-fpm 查看运行内存/usr/bin/php  -i|grep mem 重启php-fpm/etc/init.d/php-fpm restart 在phpinfo()输出内容可以看到php
  • 线程同步工具类 shuizhaosi888 同步工具类
    同步工具类包括信号量（Semaphore）、栅栏（barrier）、闭锁（CountDownLatch）   闭锁（CountDownLatch） public class RunMain { public long timeTasks(int nThreads, final Runnable task) throws InterruptedException { fin
  • bleeding edge是什么意思 haojinghua DI
    不止一次，看到很多讲技术的文章里面出现过这个词语。今天终于弄懂了——通过朋友给的浏览软件，上了wiki。  我再一次感到，没有辞典能像WiKi一样，给出这样体贴人心、一清二楚的解释了。为了表达我对WiKi的喜爱，只好在此一一中英对照，给大家上次课。   In computer science, bleeding edge is a term that
  • c中实现utf8和gbk的互转 jimmee ciconvutf8&gbk编码
    #include <iconv.h> #include <stdlib.h> #include <stdio.h> #include <unistd.h> #include <fcntl.h> #include <string.h> #include <sys/stat.h> int code_c
  • 大型分布式网站架构设计与实践 lilin530 应用服务器搜索引擎
    1.大型网站软件系统的特点？ a.高并发，大流量。 b.高可用。 c.海量数据。 d.用户分布广泛，网络情况复杂。 e.安全环境恶劣。 f.需求快速变更，发布频繁。 g.渐进式发展。 2.大型网站架构演化发展历程？ a.初始阶段的网站架构。 应用程序，数据库，文件等所有的资源都在一台服务器上。 b.应用服务器和数据服务器分离。 c.使用缓存改善网站性能。 d.使用应用
  • 在代码中获取Android theme中的attr属性值 OliveExcel androidtheme
    Android的Theme是由各种attr组合而成, 每个attr对应了这个属性的一个引用, 这个引用又可以是各种东西.   在某些情况下, 我们需要获取非自定义的主题下某个属性的内容 (比如拿到系统默认的配色colorAccent), 操作方式举例一则: int defaultColor = 0xFF000000; int[] attrsArray = { andorid.r.
  • 基于Zookeeper的分布式共享锁 roadrunners zookeeper分布式共享锁
    首先，说说我们的场景，订单服务是做成集群的，当两个以上结点同时收到一个相同订单的创建指令，这时并发就产生了，系统就会重复创建订单。等等......场景。这时，分布式共享锁就闪亮登场了。   共享锁在同一个进程中是很容易实现的，但在跨进程或者在不同Server之间就不好实现了。Zookeeper就很容易实现。具体的实现原理官网和其它网站也有翻译，这里就不在赘述了。   官
  • 两个容易被忽略的MySQL知识 tomcat_oracle mysql
    1、varchar(5)可以存储多少个汉字，多少个字母数字？ 　　相信有好多人应该跟我一样，对这个已经很熟悉了，根据经验我们能很快的做出决定，比如说用varchar(200)去存储url等等，但是，即使你用了很多次也很熟悉了，也有可能对上面的问题做出错误的回答。 　　这个问题我查了好多资料，有的人说是可以存储5个字符，2.5个汉字（每个汉字占用两个字节的话），有的人说这个要区分版本，5.0
  • zoj 3827 Information Entropy(水题) 阿尔萨斯 format
    题目链接：zoj 3827 Information Entropy 题目大意：三种底，计算和。 解题思路：调用库函数就可以直接算了，不过要注意Pi = 0的时候，不过它题目里居然也讲了。。。limp→0+plogb(p)=0，因为p是logp的高阶。 #include <cstdio> #include <cstring> #include <cmath&
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他