比特币的首个价格为 0.003 美元，数字黄金的神话在 R 中被揭穿

您好，加密货币爱好者们！今天我们为您带来一个非常激动人心的话题：您想过比特币最初的价格是多少吗？ 信不信由您，它的价格低得令人难以置信！

在这篇文章中，我们将用 R 代码来看看比特币的价格历史。 如果你对投资感兴趣，就不应该错过它。它充满了有价值的信息，能为你的投资策略提供新的见解！

比特币的首个价格及其简陋的起点

伙计们，你们知道比特币的第一个价格是多少吗？ 令人吃惊的是，2010 年 5 月，比特币的第一个交易价格仅为 0.003 美元，约合我们的货币 3 美分。 是的，没错，现在价值数万美元的比特币，一开始的价值真的微不足道。 让我们用 R 代码来仔细看看这个惊人的价格变化吧。

用 R 分析比特币价格数据

首先，我们将创建一些比特币价格数据来做一些数据分析，我们将使用一个简单的真实数据模型。

# 正在加载所需的库
library(tidyverse)
library(lubridate)

创建 # 比特币价格数据
bitcoin_data <- tibble(
  date = seq(as.Date("2010-05-22"), as.Date("2024-11-22"), by = "year")、
  price = c(0.003, 5.27, 13.51, 732, 320, 400, 750, 8250, 3869, 7300, 18800, 56000, 16530, 42258, 91203.83)
)

检查 # 数据
print(bitcoin_data)

代码评注

  1. library(tidyverse): 井井有条 软件包。该软件包为数据处理和可视化提供了有用的工具。
  2. library(lubridate): 润滑 软件包。通过该软件包，可以轻松处理日期和时间数据。
  3. bitcoin_data <- tibble(...): 埯 函数来生成比特币价格数据。
  • 日期:从 2010 年 5 月 22 日到 2024 年 11 月 22 日，每隔一年生成一个日期。
  • 价格代表比特币每年的美元价格。
  • print(bitcoin_data)注意：将生成的数据打印到控制台，以检查数据。
비트코인 처음 가격을 포함한 가격 데이터 생성결과 확인 콘솔 캡쳐화면
(包括比特币初始价格在内的价格数据生成结果的控制台截图）

绘制比特币价格趋势图

现在，我们来看看比特币从开始到现在的价格走势图如何？

绘制 # 比特币价格趋势图
ggplot(bitcoin_data, aes(x = date, y = price)) +
  geom_line(color = "gold", size = 1) +
  geom_point(color = "orange", size = 3) +
  scale_y_log10(labels = scales::dollar_format()) +
  labs(title = "比特币价格历程（2010-2024 年）"、
       subtitle = "从初始值开始的价格变化（对数刻度）"、
       x = "年份
       y = "价格（美元，对数标度）") +
  theme_minimal()
  theme(plot.title = element_text(face = "bold", size = 16)、
        plot.subtitle = element_text(size = 12, color = "darkgray"))

代码评注

  1. ggplot(bitcoin_data, aes(x = 日期, y = 价格))使用 ggplot2 设置图表的基本结构。x 轴为日期，y 轴为价格。
  2. geom_line(color = "gold", size = 1)：添加一个金色的折线图。
  3. geom_point(color = "orange", size = 3)在每个数据点上添加一个橙色点。
  4. scale_y_log10(labels = scales::dollar_format())y 轴：将 y 轴设置为对数刻度，并用美元格式标注。
  5. 实验室(...)标题：设置图表的标题、副标题、X 轴标签和 Y 轴标签。
  6. theme_minimal()主题：采用简约风格。
  7. 主题(...)进一步自定义标题和小标题的样式。
비트코인 처음 가격부터 '24년 11월 현재까지의 가격 추이 그래프
(比特币从初始价格到 24 年 11 月的价格趋势图）

比特币初始价格与当前价格之间的惊人差异

计算比特币的初始价格和当前价格之间的差额？用 R 数据分析就能轻松做到。结果会让你大吃一惊：从 2010 年 5 月到 14 年后的今天，比特币的价格高达 3,040,127,566.671 TP3T，涨幅高达 30.1 亿 TP3T！

提取 # 的第一个和最后一个价格
first_price <- bitcoin_data$price[1]
last_price <- bitcoin_data$price[nrow(bitcoin_data)]。

计算 # 的价格涨幅
price_increase <- (last_price - first_price) / first_price * 100

输出 # 结果
cat(sprintf("Initial Bitcoin Price: $%.3f\n", first_price))
cat(sprintf("Current Bitcoin Price: $%.2f\n", last_price))
cat(sprintf("Astonishing Price Increase: %.2f%%\n", price_increase))

代码评注

  1. first_price <- bitcoin_data$price:提取数据集中的第一个价格。
  2. last_price <- bitcoin_data$price[nrow(bitcoin_data)]。:提取数据集中的最后一个价格。
  3. price_increase <- (last_price - first_price) / first_price * 100计算价格增长率。
  4. cat(sprintf(...))以格式化格式输出计算结果。
  • 第一行输出比特币的初始价格。
  • 第二行输出当前的比特币价格。
  • 第三行输出价格增长的百分比。
비트코인 처음 가격 대비 현재 가격 상승률 확인 콘솔 화면
(控制台屏幕显示比特币当前价格与初始价格相比的增长百分比）

组织起来

你能看到比特币的价值是如何惊人增长的吗？ 当然，过去的表现并不能保证未来，但这无疑是对加密货币市场潜力的有趣一瞥。

一旦你掌握了这些数据分析技能，你就能做出更好的投资决策。 R 代码是不是比你想象的更有趣？ 请继续关注更多类似的精彩话题。 哦，你对比特币的整体趋势不好奇吗？ 用 R 跟踪比特币美元价格舞动：初学者的价格趋势分析 本帖将回答这个问题！

类似文章