blocks|key|1706016|text|也许手动绘制轴和标签，而不是接受默认值？|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1706017|plot(-20:-1,+rnorm(20)+%2B+1+:+20,+xaxt="n")
Axis(-20:-1,+at=seq(-20,-5,5),+side=1,
++labels=paste("\U2212",seq(20,5,-5),sep=""))|code-block|syntax|javascript|1706018|​|1706019|📷|atomic|offset|length|1706020|1706021|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/f3dd73b6b26fb9c71df53da95ba9c382.png|imageAlt^0|0|0|0|0|1|0|0|0^^$0|@$1|2|3|4|5|6|7|X|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|Y|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Z|8|@]|9|@]|A|$]]|$1|I|3|J|5|K|7|10|8|@]|9|@$L|11|M|12|1|13]]|A|$]]|$1|N|3|H|5|6|7|14|8|@]|9|@]|A|$]]|$1|O|3|-4|5|6|7|15|8|@]|9|@]|A|$]]]|P|$Q|$5|R|S|T|A|$U|V|W|-4]]]]

Perhaps draw the axis and labels manually, rather than accepting the defaults?

<pre><code>plot(-20:-1, rnorm(20) + 1 : 20, xaxt="n")
Axis(-20:-1, at=seq(-20,-5,5), side=1,
 labels=paste("\U2212",seq(20,5,-5),sep=""))
</code></pre>

<img src="https://i.stack.imgur.com/aNEST.png" alt="enter image description here">

blocks|key|1919591|text|另一种方法与Joshua+Ulrich提供的方法几乎相同，只是您可以让R计算轴滴答：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1919592|plot(-20:-1,+rnorm(20)+%2B+1+:+20,+xaxt="n")
at+<-+axTicks(1,+usr=par("usr")[1:2])
labs+<-+gsub("-",+"\U2212",+print.default(at))
axis(1,+at=at,+labels=labs)|code-block|syntax|javascript|1919593|​|1919594|📷|atomic|offset|length|1919595|1919596|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/123dd893b8361b1f68ae2b86a52ece59.png|imageAlt^0|0|0|0|0|1|0|0|0^^$0|@$1|2|3|4|5|6|7|X|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|Y|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Z|8|@]|9|@]|A|$]]|$1|I|3|J|5|K|7|10|8|@]|9|@$L|11|M|12|1|13]]|A|$]]|$1|N|3|H|5|6|7|14|8|@]|9|@]|A|$]]|$1|O|3|-4|5|6|7|15|8|@]|9|@]|A|$]]]|P|$Q|$5|R|S|T|A|$U|V|W|-4]]]]

Another way which is almost the same as the one provided by Joshua Ulrich, except that you can let R compute the axis ticks :

<pre><code>plot(-20:-1, rnorm(20) + 1 : 20, xaxt="n")
at &lt;- axTicks(1, usr=par("usr")[1:2])
labs &lt;- gsub("-", "\U2212", print.default(at))
axis(1, at=at, labels=labs)
</code></pre>

<img src="https://i.stack.imgur.com/BfG7H.png" alt="enter image description here">

blocks|key|1706180|text|下面是如何使用ggplot来做这件事。pdf设备不会呈现unicode符号，因此请使用cairo_pdf。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1706181|unicode_minus+<-+function(x)+sub('%5E-',+'\U2212',+format(x))

#+change+the+default+scales
scale_x_continuous+<-+function(...,+labels=unicode_minus)
++++++++++++++++++++++++ggplot2::scale_x_continuous(...,+labels=labels)
scale_y_continuous+<-+function(...,+labels=unicode_minus)
++++++++++++++++++++++++ggplot2::scale_y_continuous(...,+labels=labels)

qplot(-20:-1,+rnorm(20)+%2B+1:20)|code-block|syntax|javascript|1706182|entityMap^0|J|3|17|9|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]|$9|P|A|Q|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|R|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|S|8|@]|D|@]|E|$]]]|L|$]]

Here is how to do it with ggplot. The <code>pdf</code> device doesn't render the unicode symbols, so use <code>cairo_pdf</code> instead.

<pre><code>unicode_minus &lt;- function(x) sub('^-', '\U2212', format(x))

# change the default scales
scale_x_continuous &lt;- function(..., labels=unicode_minus)
 ggplot2::scale_x_continuous(..., labels=labels)
scale_y_continuous &lt;- function(..., labels=unicode_minus)
 ggplot2::scale_y_continuous(..., labels=labels)

qplot(-20:-1, rnorm(20) + 1:20)
</code></pre>

blocks|key|1919957|text|新的包signs完全按照OP的要求来做。以下是该网站的一个示例：|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1919958|library(dplyr)
library(ggplot2)
library(ggrepel)

theme_set(theme_gray())
theme_update(panel.grid.minor+=+element_blank())

p+<-+
++ggplot(sleep)+%2B
++aes(group,+extra)+%2B
++geom_point()+%2B
++xlab("Drug")+%2B
++ylab("Extra+Sleep+(hours)")

label_hours+<-+function(mapping)+{
++geom_text_repel(
++++mapping,
++++nudge_x+++++++=+-.1,
++++direction+++++=+"y",
++++segment.size++=+.4,
++++segment.color+=+"grey75",
++++hjust+++++++++=+"right"
++)
}

p+%2B
++label_hours(
++++mapping+=+aes(
++++++label+=+case_when(
++++++++group+==+1+~+signs(extra,+accuracy+=+.1),+#+Unicode+minuses
++++++++group+==+2+~+number(extra,+accuracy+=+.1)+#+ASCII+minuses
++++++)
++++)
++)+%2B
++scale_y_continuous(
++++limits+=+c(-4,+6),
++++breaks+=+seq(-4,+6),
++++labels+=+signs_format(accuracy+=+.1)+#+Unicode,+analogous+to+number_format()+
++)|code-block|syntax|javascript|1919959|​|1919960|📷|atomic|1919961|1919962|entityMap|0|LINK|mutability|MUTABLE|url|https://cran.r-project.org/web/packages/signs/readme/README.html|1|IMAGE|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/222f2d3d4361986a6bb6530c18d4648a.png|imageAlt^0|3|5|0|0|0|0|0|1|1|0|0^^$0|@$1|2|3|4|5|6|7|12|8|@]|9|@$A|13|B|14|1|15]]|C|$]]|$1|D|3|E|5|F|7|16|8|@]|9|@]|C|$G|H]]|$1|I|3|J|5|6|7|17|8|@]|9|@]|C|$]]|$1|K|3|L|5|M|7|18|8|@]|9|@$A|19|B|1A|1|1B]]|C|$]]|$1|N|3|J|5|6|7|1C|8|@]|9|@]|C|$]]|$1|O|3|-4|5|6|7|1D|8|@]|9|@]|C|$]]]|P|$Q|$5|R|S|T|C|$U|V]]|W|$5|X|S|Y|C|$Z|10|11|-4]]]]

The new package <a href="https://cran.r-project.org/web/packages/signs/readme/README.html" rel="nofollow noreferrer">signs</a> doing exactly what the OP asks for. Here is an example from the website:

<pre><code>library(dplyr)
library(ggplot2)
library(ggrepel)

theme_set(theme_gray())
theme_update(panel.grid.minor = element_blank())

p &lt;- 
 ggplot(sleep) +
 aes(group, extra) +
 geom_point() +
 xlab("Drug") +
 ylab("Extra Sleep (hours)")

label_hours &lt;- function(mapping) {
 geom_text_repel(
 mapping,
 nudge_x = -.1,
 direction = "y",
 segment.size = .4,
 segment.color = "grey75",
 hjust = "right"
 )
}

p +
 label_hours(
 mapping = aes(
 label = case_when(
 group == 1 ~ signs(extra, accuracy = .1), # Unicode minuses
 group == 2 ~ number(extra, accuracy = .1) # ASCII minuses
 )
 )
 ) +
 scale_y_continuous(
 limits = c(-4, 6),
 breaks = seq(-4, 6),
 labels = signs_format(accuracy = .1) # Unicode, analogous to number_format() 
 )
</code></pre>

<img src="https://i.stack.imgur.com/gCqPq.png" alt="Here is the plot on the website.">

Preamble: I want to create publication-grade graphics from R without postprocessing. Other researchers at my institute always perform postprocessing in a graphics software (such as Adobe Illustrator). I am hoping to avoid this.

My gripe is that R doesn’t use the correct minus sign for negative numbers (especially in plot axes):

<pre><code>plot(-20:-1, rnorm(20) + 1 : 20)
</code></pre>

<img src="https://i.stack.imgur.com/GzGYA.png" alt="plot with negative numbers">

(I’ve circled the offenders for your consideration.)

As somewhat of a typography nerd (it’s true! Check my Careers CV!) this is unacceptable. I need to use the correct Unicode character ᴍɪɴᴜꜱ ꜱɪɢɴ (U+2212, “−”) here. A friend of mine achieves this by replacing all minus signs in Adobe Illustrator prior to publication but I can’t help but think that there must be a better way – from within R – to accomplish this; and one that doesn’t force me to manually replace all axis labels.

(I’m not currently using ggplot2 but if there’s a solution which only works with ggplot2 I’ll gladly take it.)

Fix typography in axis labels

前言:我想在没有后处理的情况下从R创建发布级图形。我所在研究所的其他研究人员总是在图形软件(如Adobe Illustrator)中执行后处理。我希望能避免这种情况。我的抱怨是R没有对负数使用正确的负号(特别是在绘图轴中)：plot(-20:-1, rnorm(20) + 1 : 20)​​(我圈出了违规者，请您考虑。...

问修复轴标签中的排版
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问修复轴标签中的排版EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问修复轴标签中的排版
EN