回答編集履歴
2
Update
test
CHANGED
|
@@ -12,12 +12,12 @@
|
|
|
12
12
|
|
|
13
13
|
plot(0, 0, type = "n", xlim = c(0, 3), ylim = c(0, 9), xaxt="n", yaxt="n", xlab = "", ylab = "", bty="n")
|
|
14
14
|
|
|
15
|
-
text(1,
|
|
15
|
+
text(1, 4, intToUtf8(0x1F305), col = "red", cex = 10, adj = 0)
|
|
16
16
|
|
|
17
|
-
text(1.6,
|
|
17
|
+
text(1.6, 4, intToUtf8(0x1F38D), col = "red", cex = 10, adj = 0)
|
|
18
18
|
|
|
19
19
|
dev.off()
|
|
20
20
|
|
|
21
21
|
```
|
|
22
22
|
|
|
23
|
-
|
1
Update
test
CHANGED
|
@@ -1,21 +1,23 @@
|
|
|
1
|
-
|
|
1
|
+
`intToUtf8` を使います。
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
5
|
-
```r
|
|
6
|
-
|
|
7
|
-
$ R
|
|
8
|
-
|
|
9
|
-
|
|
5
|
+
[Convert Integer Vectors to or from UTF-8-encoded Character](https://stat.ethz.ch/R-manual/R-devel/library/base/html/utf8Conversion.html)
|
|
10
6
|
|
|
11
7
|
|
|
12
8
|
|
|
13
|
-
|
|
9
|
+
```R
|
|
14
10
|
|
|
11
|
+
png("1.png", width = 600, height = 300, bg="transparent") # 描画デバイスを開く
|
|
12
|
+
|
|
13
|
+
plot(0, 0, type = "n", xlim = c(0, 3), ylim = c(0, 9), xaxt="n", yaxt="n", xlab = "", ylab = "", bty="n")
|
|
14
|
+
|
|
15
|
-
|
|
15
|
+
text(1, 1, intToUtf8(0x1F305), col = "red", cex = 10, adj = 0)
|
|
16
|
+
|
|
17
|
+
text(1.6, 1, intToUtf8(0x1F38D), col = "red", cex = 10, adj = 0)
|
|
18
|
+
|
|
19
|
+
dev.off()
|
|
16
20
|
|
|
17
21
|
```
|
|
18
22
|
|
|
19
|
-
|
|
20
|
-
|
|
21
|
-
|