我正在尝试在 R 中做一个金字塔“类似”的情节,我想我很接近。我知道有一些函数,例如 plotrix 的pyramid.plot但我想做的不是真正的金字塔图。在金字塔图中,中间有文本标签,它们与左侧和右侧的条形对齐。相反,我想要做的是两列文本,条形远离它们。
我正在使用 ggplot(但我想我不必)和multiplot函数。一个最小的例子是这样的:
mtcars$`car name` <- rownames(mtcars)
obj_a <- ggplot (mtcars, aes (x=`car name`, y=mpg))
obj_a <- obj_a + geom_bar (position = position_dodge(), stat="identity")
obj_a <- obj_a + coord_flip ()
obj_a <- obj_a + xlab ("")
USArrests$`states` <- rownames(USArrests)
obj_b <- ggplot (USArrests, aes (x=`states`, y=UrbanPop))
obj_b <- obj_b + geom_bar (position = position_dodge(), stat="identity")
obj_b <- obj_b + coord_flip ()
obj_b <- obj_b + xlab ("")
multiplot (obj_a, obj_b, cols=2)
Run Code Online (Sandbox Code Playgroud)
看起来像这样: …
我在/ var/www中有两个目录(例如,/ var/www/app1和/ var/www/app2),我想将错误日志发送到不同的文件.两者都属于同一个域,所以我认为我不能把它们放在不同的虚拟主机下.因此,例如,我将访问它们:
我遇到过这个页面:
其解决方案适用于访问日志.但是,"env"参数似乎不适用于ErrorLog指令.
在这个"发现"之前,我正在研究这个,这似乎是错误的:
<VirtualHost *:80>
ServerAdmin ray@localhost
DocumentRoot /var/www/app1
<Directory />
Options Indexes FollowSymLinks MultiViews
AllowOverride None
Order deny,allow
allow from all
</Directory>
ErrorLog ${APACHE_LOG_DIR}/app1/error.log
LogLevel warn
CustomLog ${APACHE_LOG_DIR}/app1/access.log combined
</VirtualHost>
Run Code Online (Sandbox Code Playgroud)
我对自己应该做的事感到有些迷茫.也就是说,如果有一些方法可以使ErrorLog工作,或者我应该继续尝试为每个目录配置虚拟主机.任何帮助,将不胜感激!谢谢!
我正在尝试使用变量名称对数据框进行子集化。我有它的工作,但有一部分我不太明白。
最初我有这个: rownames (mtcars[mtcars$hp >150,])
.
然后,而不是硬编码“hp”,我想将“hp”分配给一个变量: foo <- "hp"
和它的子集。我用这个让它工作: rownames (mtcars[mtcars[foo] >150,])
。(感谢阻止我与运营商一起玩的链接$
。)
但是,在我构建此声明时,我注意到两者之间存在差异。对于mtcars$hp > 150
,我得到这个输出:
[1] FALSE FALSE FALSE FALSE TRUE FALSE TRUE FALSE FALSE FALSE FALSE TRUE
[13] TRUE TRUE TRUE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE TRUE
[25] TRUE FALSE FALSE FALSE TRUE TRUE TRUE FALSE
Run Code Online (Sandbox Code Playgroud)
对于mtcars[foo] > 150
,我得到了这个:
hp
Mazda RX4 FALSE
Mazda RX4 Wag FALSE
Datsun 710 FALSE
Hornet 4 Drive FALSE
Hornet Sportabout …
Run Code Online (Sandbox Code Playgroud)