请教美化这张ggplot散点图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

s2.zip (306 Bytes) 本附件包括：

• s2.csv

2020-3-27 16:42:38 上传

数据

如图所示，size太小，没有办法做好处理。另外有些点因为size过于小，导致标签无法显示。
其次就是主体不够美观。

1. library(ggrepel)
   
2. set.seed(1234)
   
3. jdata<-read.csv("s2.csv",header=T)
   
4. jdata$TF<-factor(jdata$TF,levels = c(0,1),labels = c("降低","提升"))
   
5. library(ggplot2)
   
6. ggplot(jdata, aes(x=mar, y=may,colour=TF,size=abs)) +
   
7.   geom_point()+
   
8.   scale_x_continuous(limits = c(0,10.5)) +
   
9.   scale_y_continuous(limits = c(0,10.5)) +
   
10.   geom_text_repel(aes(mar, may, label=name))+
    
11.   geom_abline(slope=1) +
    
12.   labs(title="children get paid by partime job",x="mar（10$)", y = "may（10$）")+
    
13.   scale_colour_hue( name = "相比增幅", labels = c("降低", "提升"))+
    
14.   scale_size(name="较3月变化")+
    
15.   theme_classic()

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

怎么算difference然后看分布不就好了么？主要看你想表达啥

rosenbloog 发表于 2020-3-27 19:08
怎么算difference然后看分布不就好了么？主要看你想表达啥

我是想把size调整更大些，但是又不想调整原数据

欢迎使用Markdown编辑器

经管之家：Do the best economic and management education！

你好！ 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章，了解一下Markdown的基本语法知识。

功能快捷键

撤销：Ctrl/Command + Z
重做：Ctrl/Command + Y
加粗：Ctrl/Command + B
斜体：Ctrl/Command + I
标题：Ctrl/Command + Shift + H
无序列表：Ctrl/Command + Shift + U
有序列表：Ctrl/Command + Shift + O
检查列表：Ctrl/Command + Shift + C
插入代码：Ctrl/Command + Shift + K
插入链接：Ctrl/Command + Shift + L
插入图片：Ctrl/Command + Shift + G

合理的创建标题，有助于目录的生成

直接输入1次#，并按下space后，将生成1级标题。
输入2次#，并按下space后，将生成2级标题。
以此类推，我们支持6级标题。

如何改变文本的样式

强调文本 强调文本

加粗文本 加粗文本

标记文本

删除文本

引用文本

H₂O is是液体。

2¹⁰ 运算结果是 1024.

插入链接与图片

链接: 经管之家官网.

图片:

带尺寸的图片:

如何插入一段漂亮的代码片

选择一款你喜欢的代码片高亮样式，下面展示同样高亮的 代码片.

def get_abs(x):
    if not isinstance(x, (int, float)):
        raise TypeError('bad operand type')
    if x >= 0:
        return x
    else:
        return -x

生成一个适合你的列表

• 项目
  • 项目
    • 项目

1. 项目1
2. 项目2
3. 项目3

• 计划任务
• 完成任务

创建一个表格

一个简单的表格是这么创建的：

项目	Value
电脑	$1600
手机	$12
导管	$1

设定内容居中、居左、居右

使用:---------:居中
使用:----------居左
使用----------:居右

第一列	第二列	第三列
第一列文本居中	第二列文本居右	第三列文本居左

SmartyPants

SmartyPants将ASCII标点字符转换为“智能”印刷标点HTML实体。例如：

TYPE	ASCII	HTML
Single backticks	'Isn't this fun?'	‘Isn’t this fun?’
Quotes	"Isn't this fun?"	“Isn’t this fun?”
Dashes	-- is en-dash, --- is em-dash	– is en-dash, — is em-dash

创建一个自定义列表

Markdown

Text-to-HTML conversion tool

Authors

John

Luke

如何创建一个注脚

一个具有注脚的文本。¹

注释也是必不可少的

Markdown将文本转换为 HTML。

KaTeX数学公式

您可以使用渲染LaTeX数学表达式 KaTeX:

Gamma公式展示 $\Gamma(n) = (n-1)!\quad\forall n\in\mathbb N$ 是通过欧拉积分

$\Gamma(z) = \int_0^\infty t^{z-1}e^{-t}dt\,.$

你可以找到更多关于的信息 LaTeX 数学表达式[here][1].

新的甘特图功能，丰富你的文章

• 关于 甘特图 语法，参考 [这儿][2],

UML 图表

可以使用UML图表进行渲染。 Mermaid. 例如下面产生的一个序列图：:

这将产生一个流程图。:

• 关于 Mermaid 语法，参考 [这儿][3],
  [1]: http://meta.math.stackexchange.com/questions/5020/mathjax-basic-tutorial-and-quick-reference
  [2]: https://mermaidjs.github.io/
  [3]: https://mermaidjs.github.io/
  [4]: http://adrai.github.io/flowchart.js/

---

1. 注脚的解释 ↩︎

ggplot(jdata, aes(x = mar, y = may, colour =TF)) +    # size = abs 不放在这里
    geom_point(aes(size = abs)) +                             # size = abs 放在这里
    # 从(5, 5)开始作图，保证图形中数据点在中央附近，变相放大了要素
    scale_x_continuous(limits = c(5, 10.5)) +
    scale_y_continuous(limits = c(5, 10.5)) +
    geom_label_repel(aes(mar, may, label=name)) +     # 用geom_label_repel替换geom_text_repel
    geom_abline(slope=1) +
    labs(title="children get paid by partime job",x="mar（10$)", y = "may（10$）")+
    # 用对比更鲜明的颜色
    scale_colour_brewer(palette = "Set1", name = "相比增幅", labels = c("降低", "提升"))+
    scale_size(name="较3月变化")+
    theme_classic()