小编tmh*_*mhs的帖子

geom_text如何根据需要在文本上定位文本?

我想调整条形图上的文字.

我试图调整hjust/vjust以显示我喜欢它但似乎它不能正常工作.

ggplot(data) + 
        geom_bar(aes(name, count, 
        fill = week), stat='identity', position = 'dodge') +
        geom_text(aes(name,count, 
        label=count),hjust=0.5, vjust=3, size=2,
        position = position_dodge(width = 1)) + 
        coord_flip()
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述

所以我希望数字位于每个条形图上,中间位于右边缘,因此它的可读性不会像最后一部分那样重叠.

r ggplot2 geom-bar geom-text

26
推荐指数
2
解决办法
4万
查看次数

日期计算(类型错误:不支持的操作数类型 -:'str' 和 'str')

我有一个数据集如下:

        date_time       srch_co     srch_ci
0   2014-11-03 16:02:28 2014-12-19  2014-12-15
1   2013-03-13 19:25:01 2013-03-14  2013-03-13
2   2014-10-13 13:20:25 2015-04-10  2015-04-03
3   2013-11-05 10:40:34 2013-11-08  2013-11-07
4   2014-06-10 13:34:56 2014-08-08  2014-08-03
5   2014-12-16 14:34:39 2014-12-17  2014-12-16
Run Code Online (Sandbox Code Playgroud)

这是数据集的信息:

     <class 'pandas.core.frame.DataFrame'>
RangeIndex: 100000 entries, 0 to 99999
Data columns (total 3 columns):
date_time    100000 non-null datetime64[ns]
srch_co      99878 non-null object
srch_ci      99878 non-null object
dtypes: datetime64[ns](1), object(2)
memory usage: 2.3+ MB
Run Code Online (Sandbox Code Playgroud)

我想做的是使用以下函数创建 2 个新列:

def duration(row):
    delta = (row['srch_co'] - row['srch_ci'])/np.timedelta64(1, 'D')
    if delta …
Run Code Online (Sandbox Code Playgroud)

python

4
推荐指数
1
解决办法
5126
查看次数

如何在r笔记本中调整ggplot图形的大小

我想在Rnotebook中调整ggplot图形的大小.

在此输入图像描述

它太大了,没有显示上面的任何内容.当我导出它并将大小增加大约4倍时,它会显示详细信息.

我尝试了以下方法:set_plot_options fig.height,fig.width

调整图表大小但不适用.

如果您知道如何调整图块大小,请分享.

plot r ggplot2 r-markdown rnotebook

3
推荐指数
1
解决办法
5149
查看次数

如何为R中的数据表创建循环?

我有一项任务要对多行执行以下操作,我想知道是否可以将循环用于此类计算,而无需逐行键入。

我试过了,但似乎在 [] 括号内,该函数似乎没有否决我想做的事情。任何建议表示赞赏!

data[, d1:= difference < 2]
data[, d2:= difference < 3]
data[, d3:= difference < 4]
data[, d4:= difference < 5]
data[, d5:= difference < 6]
data[, d6:= difference < 7]
data[, d7:= difference < 8]
data[, d8:= difference < 9]
data[, d9:= difference < 10]
data[, d10:= difference < 11]

data$d1 <- as.numeric(data$d1)
data$d2 <- as.numeric(data$d2)
data$d3 <- as.numeric(data$d3)
data$d4 <- as.numeric(data$d4)
data$d5 <- as.numeric(data$d5)
data$d6 <- as.numeric(data$d6)
data$d7 <- as.numeric(data$d7)
data$d8 <- as.numeric(data$d8)
data$d9 <- …
Run Code Online (Sandbox Code Playgroud)

loops r data.table

-1
推荐指数
1
解决办法
5714
查看次数

标签 统计

r ×3

ggplot2 ×2

data.table ×1

geom-bar ×1

geom-text ×1

loops ×1

plot ×1

python ×1

r-markdown ×1

rnotebook ×1