FIB-4生検散布回帰
FIB-4と肝生検の散布回帰テンプレート。非侵襲的マーカーの精度評価。
R Code (ggplot2)
library(ggplot2) # ---- FIB-4 vs Biopsy Scatter Regression ---- # あなたのデータを入力してください df <- data.frame( x = c(), y = c() ) ggplot(df, aes(x = x, y = y)) + geom_point(size = 2) + geom_line() + scale_x_continuous(name = "FIB-4 Index", limits = c(0, 10)) + scale_y_continuous(name = "Fibrosis Stage (Metavir)", limits = c(0, 4)) + labs(title = "FIB-4 vs Biopsy Scatter Regression") + theme_bw(base_size = 14) + theme(plot.title = element_text(face = "bold", hjust = 0.5))
